Visual Basic - Imprimir a desde visual a report

Hola muy buenas, estoy intentando imprimir un listado en crystal report desde visual basic 6 donde le indico que me muestre todas las facturas que han sido dadas de alta en el mes de abril. Esta es la formula que le indico en el codigo:

LP_SqlQuery = LP_SqlQuery & " aND date(year({Tblt_CabFactura.Fec_Factura}), month({Tblt_CabFactura.Fec_Factura}), day({Tblt_CabFactura.Fec_Factura})) >= date(" & Year(DTP_FecPresupIni.value) & "," & Month(DTP_FecPresupIni.value) & "," & Day(DTP_FecPresupIni.value) & ")"
LP_SqlQuery = LP_SqlQuery & " aND date(year({Tblt_CabFactura.Fec_Factura}), month({Tblt_CabFactura.Fec_Factura}), day({Tblt_CabFactura.Fec_Factura})) <= date(" & Year(DTP_FecPresupFin.value) & "," & Month(DTP_FecPresupFin.value) & "," & Day(DTP_FecPresupFin.value) & ")"
----------------------------------------------------------
Este seria lo que supuestamente me tendria que coger pero lo que pasa es que no me coge la fecha que le indico, es decir, me muestra todas las facturas que tengo en la base de datos instroducidas.

aND date(year({Tblt_CabFactura.Fec_Factura}), month({Tblt_CabFactura.Fec_Factura}), day({Tblt_CabFactura.Fec_Factura})) >= date(2007,4,1) aND date(year({Tblt_CabFactura.Fec_Factura}), month({Tblt_CabFactura.Fec_Factura}), day({Tblt_CabFactura.Fec_Factura})) <= date(2007,4,30)

"Tblt_cabfactura" es la tabla donde se me guardan todas las facturas.
"Fec_factura" es el campo donde le inserto la fecha de alta.

Necesito que me indiquen si esta correcta la formula o si hay algo que me falte y por eso no me respeta las fechas que le indico porque estoy atrancado en esto y no se por donde salir. Muchas gracias de antemano.