Problema con un between

[Cuezaltzin]

Hola a todos.

Tengo un programita que realiza una busqueda entre 3 combo box con la siguiente sentencia.

sqlWhere = ""

if Marca<>"" and ucase(Marca)<>"CUALQUIERA" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Marca = '" & Marca & "'"
end if

if Valor2<>"" and ucase(Valor2)<>"CUALQUIERA" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Valor2 = '" & Valor2 & "'"
end if

if Valor1<>"" and ucase(Valor1)<>"CUALQUIERA" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Valor1 = '" & Valor1 & "'"
end if

' Finalmente arma el SQl
strSql = "SELECT * FROM Productos WHERE Producto LIKE 'Monitores' "

IF sqlWhere <> "" then strSql = strSql & " AND " & sqlWhere

Hasta aqui esta todo bien el problema es que tengo 2 cuadros de texto para que busque por medio del precio dependiendo de lo que el usuario ingrese. Con esta sentencia:

if Precio<>"" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Precio <= " & Precio & " "
end if

if Precio2<>"" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Precio >= " & Precio2 & " "
end if

Pero solo me busca si solo le pongo a un cuadro de texto y lo quiero es que cuando el usuario lleno los dos cuadros de texto la sentencia realize un between como puedo hacer esto.

Por su comprención GRACIAS.