Rango de fechas en vb6

Buen día, estoy creando una aplicación en vb6, conectada a una base de datos en access 2007, necesito mostrar en un control flexgrid según un rango de fecha, cuando hago una consulta del 01/04/2012 al 07/04/2012 es decir en el mismo mes es, se muestran todos los datos deseados, pero cuando quiero consultar por ejemple desde el 31/03/ 2012 al 7/04/2012 solo se graban en el flexgrid los daros del 31 de marzo y del 7 de abril, mas no los datos que están dentro del rango de fechas anteriormenete mencionados, a que se puede atribuir este error=, el código para la selección es:

rs.Open "SELECT * FROM ventas WHERE ven_fecha " & _
"BETWEEN #" & Format(fecha1.Caption, "mm/dd/yyyy") & "# " & _
"AND #" & Format(fecha2.Caption, "mm/dd/yyyy") & "# " & _
"ORDER BY cod_venta desc", con, adOpenStatic, adLockOptimistic