Visual Basic - Consulta entre fechas

Hola tengo un problema con mi consulta, tengo 2 dtpicker con fecha de inicio y fecha hasta, intento insertar en un flexgrid las ventas que se encuentren en ese rango el problema es que solo filtra los datos del mismo mes pero no los datos del mismo año.
Es decir que si fecha1(inicio) = 29/01/2008 y fecha2(hasta)= 31/01/2008 me muestra datos como 29/10/2007 , no muestra datos como 01/01/2008(esto esta bien), pero 29/10/2007 no
aca esta la consulta

Dim fecha1 As String
Dim fecha2 As String
fecha1 = DTPicker1.Value
fecha2 = DTPicker2.Value

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 ventas.fecha Between "
strsql = strsql & "# " + fecha1 + " # And # " + fecha2 + " #"


Bueno espero puedan ayudarme, muchas gracias

Hola Matias:
Las declaraciones de la fecha1 y fecha2 no pueden ser String, ya que son fechas, declaralas como fecha, de todas formas yo lo pondría de la siguiente manera:

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 ventas.fecha Between "
strsql = strsql & '" & DTPicker1.Value & "' And '" & DTPicker2.Value & "'"

Mira a ver si te sale de esta manera.

Saludos
Ana