elencare tabelle in ordine alfabetico

[djjunior]

Salve,
utilizzo questo script per elencarmi in una select tutte le colonne di un db.
Però me le elenca in ordine normale di inserimento.

<select name="pagine" onchange="this.options[this.selectedIndex].value && (window.location = this.options[this.selectedIndex].value);">
<option>
Seleziona la pagina da modificare
</option>
<%
  Dim sc, cn, os

    sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath("mdb-database/prova.mdb")

    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open sc

 Set os = cn.OpenSchema(4)

    While os.EOF = False
        If Trim(os("TABLE_NAME")) = "img" Then

if os("COLUMN_NAME") = "ID" then

else


        %>
    <option value="pagine.asp?pag=<%=os("COLUMN_NAME")%>"><%=os("COLUMN_NAME")%></option>            
        <%
        End If
END IF
        os.MoveNext
    Wend
    Set os = Nothing
    cn.Close
    Set cn = Nothing
%>
</select>

C'è la possibilità di elencarmele in ordine alfabetico?
Grazie
G.