Visual Basic - COnsulta con fecha

Buenas tengo esta consulta y el tema es que cuando fecha2 es mayor a la fecha actual, por mas que en el rango entre fecha1 y fecha2 hay datos la consulta me da que eof and bof son verdaderos


strsql = "Select ventas.fecha, ventas.codven, ventas.codventa, ventas.importetotal, empleado.nombre, empleado.comision, empleado.codempleado from ventas, empleado WHERE ventas.codven = empleado.codempleado and empleado.nombre ='" & Combo1.Text & "' "
strsql = strsql & " and fecha Between "
strsql = strsql & "# " + fecha1 + " # And # " + fecha2 + " #"

la pregunta es
Si fecha2 es mayor que date nunca me va a devolver ningun dato ?????
Bueno gracias por todo

la verdad q mucho no te entiendo, comparas fecha1 y fecha2 no es mejor colocar fechadesde y fechahasta, ademas hablas de date y en ningun momento la usas, explicate mejor.