Buscar entre datas

E ae galera!!!

Bem eu to usando o seguinte codigo pra fazer uma pesquisa entre datas:

dim rs,vrel,vrel1,vfun

vrel = Request.QueryString("rel")

vrel1 = Request.QueryString("rel1")

rinicio = Day(Request("vrel")) & "/"& Month(Request("vrel")) & "/" & Year(Request("vrel"))

rfim = Day(Request("vrel1")) & "/"& Month(Request("vrel1")) & "/" & Year(Request("vrel1"))

set rs = conn.execute("SELECT * from relatorio where data between '"&rinicio&"' and '"&rfim&"'")

If rs.eof then

response.write "sem registros"

else

.

.

.

Só que na hora de mostrar os resultados ele fala que não existe registro. Porque isso??

O campo no banco está como texto!