Order by problemer?

Jeg bruger nedenstående til at hente tabelnavne ud fra en database og sætte dem ind i en select - jeg vil gerne sortere denne liste, men kan ikke lige gennemskue hvordan???

'lav dropdown liste med tabeller i databasen
    Set rsFieldNames = dbc.OpenSchema(adSchemaTables)
    rsFieldNames.Filter = "TABLE_TYPE='TABLE'"
    Response.Write "<HTML><BODY BGCOLOR=White><font face='verdana,arial' size=2>"   
    Response.Write "<FORM METHOD='Post' ACTION='browsertest1.asp' target=_blank>"
    Response.Write "Vælg den backuptabel du ønsker: "
    Response.Write "<SELECT name='table'>"
    Do While Not rsFieldNames.EOF
        Response.Write "<OPTION value=" & """" & rsFieldNames("TABLE_NAME") & """" & "</OPTION>" & rsFieldNames("TABLE_NAME")
        rsFieldNames.MoveNext
    Loop