Problema type mismatch

[maron]

Queria hacerla corta, por eso no puse el codigo antes, pero sigue sin funcionar. Aqui va, pues a lo mejor el problema es otro:

<%
Dim opcion
opcion = 0
%>

<%
Dim var_dorm
var_dorm = 0
If Request("dorm") <> "" Then
var_dorm = Request("dorm")
opcion = opcion + 1000
End If
%>

<%
Dim var_precio_min, var_precio_max
var_precio_min = 0
var_precio_max = 9999999
If (Request("min") <> "") Then
var_precio_min = (Request("min"))
opcion = opcion + 10000
End If
If (Request("max") <> "") Then
var_precio_max = (Request("max"))
End If
%>
.
.
.
<%Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb);DBQ=C:\pathdelaBD.mdb;"
%>

<%
Dim rs_consulta

Set rs_consulta = Server.CreateObject("ADODB.Recordset")
rs_consulta.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb);DBQ=C:\pathdelaBD\BD\BD.mdb;"
rs_consulta.Source = "SELECT * FROM Tabla1"

select case opcion
case 0
rs_consulta.Source = "SELECT * FROM Tabla1"
.
.
.
case 1000
rs_consulta.Source = "SELECT * FROM Tabla1 WHERE Dormitorios = '"&clng(var_dorm)&"'"
case 10000
rs_consulta.Source = "SELECT * FROM Tabla1 WHERE Precio BETWEEN '"&clng(var_precio_min)&"' AND '"&clng(var_precio_max)&"'"
.
.
.
end select

rs_consulta.CursorType = 0
rs_consulta.CursorLocation = 2
rs_consulta.LockType = 1
rs_consulta.Open()

'aqui es donde aparece el error, en la linea del Open
'Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
'[Microsoft][ODBC Microsoft Access Driver]
'Data type mismatch in criteria expression.

<%
rs_consulta.Close()
Set rs_consulta = Nothing
%>
<%oConn.Close()%>

Los campos Precio y Dormitorios de la BD son tipo Numerico
En los campos texto no da problema la consulta.
Desde ya, gracias por el aporte
Saludos