Ordinare array in ordine alfabetico dalla A alla Z

[Pierhagi]

Ciao

non riesco ad ordinare correttamente questo array.

Quando visualizzo la select vedo l'elenco dei valori in ordine alfabetico ma...dalla Z alla A. Io vorrei che fosse dalla A alla Z, dovrebbe esserci il classico value=0 e poi partire l'elenco dei valori.

Io codice che ho utilizzato è:

...
sql = "SELECT * from TabSquadra where ID_TORNEO = "&id_v&" order by NOME_SQUADRA asc"
...
<%
    Dim squadre_1_v, i
    squadre_1_v = Array(rs("nome_squadra"))
    i = 0
            
    For i = 0 To UBound(squadre_1_v)
%>
    <select name="id_squadra_1" id="id_squadra_1">
       <option value=""></option>

       <% While Not rs.eof %>
       
       <option value="<%=rs("id_squadra")%>" selected>
          <%=rs("nome_squadra")%>
       </option>
       
       <%
            'Vai al prossimo
            rs.MoveNext
            Wend
        %>
    </select>
<%Next%>