Mais de 1 combo usando mesma consulta

Bom dia pessoal, tenho um formulario em asp com 4 combos sendo que 2 fazem consulta na tabela cidades e 2 fazem consultas na tabela estados, porem só conseguir fazer elas funcionarem usando 4 consultas ou seja, tive que criar uma consulta para cada combo. Este formulario ficou muito pesado, gostaria de deixa-lo mais leve, gostaria de saber se alguem pode me ajudar a exibir os dados de uma consulta em duas combo, segue o codigo para analise: <% sql = "select from tblCidades" sql2 = "select from tblEstados" sql3 = "select from tblCidades" sql4 = "select from tblEstados" sql5 = "select * from tblRegioes" Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("dados/database.mdb") Conn.open set consulta = Conn.execute(sql) set consulta2 = Conn.execute(sql2) set consulta3 = Conn.execute(sql3) set consulta4 = Conn.execute(sql4) set consulta5 = Conn.execute(sql5) %> <select name="ComCidade" id="ComCidade"> <%while not consulta.eof%> <option value="<%=consulta("Cidade")%>"><%=consulta("Cidade")%></option> <%consulta.movenext wend %> </select></td> <select name="ComUF" id="ComUF"> <%while not consulta2.eof%> <option value="<%=consulta2("EstadoSigla")%>"><%=consulta2 ("EstadoSigla")%></option> <%consulta2.movenext wend %><select name="FazCidade" id="FazCidade"> <%while not consulta3.eof%> <option value="<%=consulta3("Cidade")%>"><%=consulta3("Cidade")%></option> <%consulta3.movenext wend %> </select></td><select name="FazUF" id="FazUF"> <%while not consulta4.eof%> <option value="<%=consulta4("EstadoSigla")%>"><%=consulta4("EstadoSigla")%></option> <%consulta4.movenext wend %> </select></td>Agradeço a ajuda de todos.