[Resolvido] split em combobox para busca

Bem olá pessoal, preciso da ajuda de alguem porque estou com uma dificuldade pois NUNCA usei o SPLIT e estou apanhando pra caramba, eu estou mais perdido do que azeitona em boca de banguelo, essa é a real!!!! http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

Estou fazendo uma busca por faixa de valor de imóveis usando um combobox e não sei o q fazer para ele ler o campo "VALOR" da tabela, estou usando ACCESS.

Vou postar o código da página que recebe o valor da COMBOBOX e que esta dando erro, espero que alguem possa me ajudar!

<!--#include file="StrCOn.asp" -->

<%
DIM rs1, rs2, rs3
query_busca = request.form("valor")

ValorTotal = Split(query_busca, "~")
MenorValor = Split( query_busca, "~" )(0)
MaiorValor = Split( query_busca, "~" )(1)

Set rs1 = Server.CreateObject("ADODB.RecordSet")
rs1.ActiveConnection = Conexao
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.ActiveConnection = Conexao
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.ActiveConnection = Conexao

Set rs1 = conexao.execute("SELECT * FROM tb_imoveis_aluguel WHERE valor BETWEEN '%"&MenorValor&"%' AND '%"&MaiorValor&"%'")
Set rs2 = conexao.execute("SELECT * FROM tb_imoveis_vendas WHERE valor BETWEEN '%"&MenorValor&"%' AND '%"&MaiorValor&"%'")
Set rs3 = conexao.execute("SELECT * FROM tb_lote WHERE valor BETWEEN '%"&MenorValor&"%' AND '%"&MaiorValor&"%'")

If rs1.EOF and rs2.EOF and rs3.EOF Then
Response.Write "<p align=center><font face='Verdana' size='2' color='#000080'>Não foi encontrado nenhum imóvel nessa faixa de valor!</font>"
End if%>
<%If not rs1.eof then%>
<p align=center><b><font face="Verdana" size="2" color="#000080">Aluguel</font></b></p>
<%While not rs1.eof%>
<p align=center><a href="detalhes_valor.asp?onde=tb_imoveis_aluguel&id=<%=rs1("id")%>" target="_top"><%=rs1("valor")%></a><br>
<%Rs1.MoveNext
Wend
End if%>

<%If not rs2.eof then%>
<p align=center><b><font face="Verdana" size="2" color="#000080">Vendas</font></b></p>
<%While not rs2.eof%>
<p align=center><a href="detalhes_valor.asp?onde=tb_imoveis_vendas&id=<%=rs2("id")%>"target="_top"><%=rs2("valor")%></a><br>
<%Rs2.MoveNext
Wend
End if%>

<%If not rs3.eof then%>
<p align=center><b><font face="Verdana" size="2" color="#000080">Lotes</font></b></p>
<%While not rs3.eof%>
<p align=center><a href="detalhes_valor_lote.asp?onde=tb_lote&id=<%=rs3("id")%>"target="_top"><%=rs3("valor")%></a><br>
<%Rs3.MoveNext
Wend
End if%>
Já da pau logo no primeiro "Set rs1 = conexao..."

Já agradeço a ajuda e paciencia de todos http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif