Db udtræt opdeling alabetisk

Ja du skal havde sat en order på din SQL sætning og så kan man lave noget kode som tjekker og husker hvilke bogstav man er ved. Eksempel på koden:

SQL = "select * from tbl order by navn"
Set rs = Conn.Execute(SQL)
oldChar = ""
do while not rs.EOF
  'udskriv begyndelse bogstavet hvis det er nyt
  if oldChar <> lcase(Left(rs("navn"),1)) then
    oldChar = lcase(Left(rs("navn"),1))
    Response.Write "<b>" & ucase(oldchar) & "</b><br>"
  end if
 
  'udskriv indholdet af kolonnen
  Response.Write rs("navn")

  rs.Movenext
loop

Tak lige hva jeg sku bruge.. Den opdeler dog hver tal, men fik jeg løst med en if sætning med "If IsNumeric(oldChar)"

Tak for hæjlpen.