ordine per id non rispettato!

[djjunior]

Carissimi,
utilizzo questo script per una select di comuni prelevati dati.
Ho riscontrato un piccolo problema.
Nel form principale funziona ecco come lo inserisco:

	<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("comuni.mdb")
			
			sql = "SELECT codiceErariale, comune FROM comuni ORDER BY id asc"
			
			set rs = server.createObject("ADODB.Recordset")
			rs.open "comuni", conn, 0, 1
			
				if not rs.eof then
		%>
		<select name="comune" id="comune" size="1">
			<option>seleziona comune</option>
		<%
					do until rs.eof
		%>
		<option value="<%=rs("codiceErariale")%>"><%=rs("comune")%></option>
		<%
					rs.moveNext
					loop
		%>
		</select>
		<%
end if
%>

Mentre nella pagina successiva con i dati salvati, dove l'ordine alfabetico(id) non è corretto l'inserisco cosi:

<% com = rs.Fields("comune")%> 
	<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("comuni.mdb")
			
			sql = "SELECT codiceErariale, comune FROM comuni ORDER BY id asc"
			
			set rs1 = server.createObject("ADODB.Recordset")
			rs1.open "comuni", conn, 0, 1
			
				if not rs1.eof then
		%>
		<select name="comune" id="comune" size="1">
			<option>seleziona comune</option>
		<%
					do until rs1.eof
		%>
		<option value="<%=rs1("codiceErariale")%>" <%if com = "" & rs1("codiceErariale") & ""  then%> selected="selected"<%end if%>><%=rs1("comune")%></option>
		<%
					rs1.moveNext
					loop
		%>
		</select>
		<%
end if
%>

Come mai?
Dove sbaglio?
Grazie
G.