vba sort columns and print

Hi

Below is sum vba coding which is used to print out a new file according to the first letter of a title column! so bascially i will get a-z.htm files and each file will have the same letter titles listed in them, so all the 'a' titles will go to the a.htm file, 'b' titles to b.htm etc (hope that made sense)!

i have 2 problems with this
1. I need sum vba coding that will sort the title column in alphabetical order before it prints to files!
2. when it prints each title to its file i want the whole list to print! but in this case it keeps overwriting the file so i get only the last one line printed in each file!

this is a little section of my coding:-

rs.Open strSQL, strConnect
Open "C:\vb\db\index_A.htm" For Output As #1
strA = "A"
rs.MoveFirst
Do Until rs.EOF
strRecno = rs.Fields("Recno").Value
strTitle = rs.Fields("Title").Value
strId = "<a href='{$url}MyLibrary/PILS/azindex.php?page=" & strRecno & "'>" & strTitle & "</a>" & "<br>"
strB = UCase(Left(strTitle, 1))
MsgBox (strB)
If strA = strB Then
Print #1, strId
Else
Close #1
Open "C:\vb\db\index_" & strB & ".htm" For Output As #1
Print #1, strId
End If
rs.MoveNext
Loop
Close #1

can any1 help pls?