Visual Basic - PROBLEMA CON ACCESS 2000

Que tal Gente, Talvez alguien me ayuda con Esto.

Esoty trabajando con access 200 y visual 6.0 uso el siguiente codigo para consultar registros de facturas en mi bd y no me trae nada si especifico la fecha inicial y final como el mismo dia por ejemplo consultar del 01/08/2004 al 01/08/2004 y claro que tengo registros con esa fecha en mi bd.
Ahora si ejecuto desde el 01/08/2004 al 02/08/2004 solo me trae registros del 01/08/2004..

Dim fecha As String
fecha = Format(DTVENCE.Value, "mm/dd/yyyy")
Set rs = New Recordset
strsql = " SELECT * FROM CXP WHERE CXP.VENCE BETWEEN #" & Format(DTVENCE.Value, "DD/MM/yyyy") & "# AND #" & Format(DTVENCE.Value, "DD/MM/yyyy") & "# and saldo <> 0 "

ya probe tambien formateano en "MM/DD/YYYY"

hola, yo he hecho varias consultas de este tipo, y lo he hecho del siguiente modo, utilizo dtpicker para que el usuario establezcas las fecha y despues utilizo la funcion datevalue para validar que el formato de fecha que estoy utilizando para buscar sea igual al que esta utilizando la base de datos para almacenar el contenido del campo

strsql = " SELECT * FROM CXP WHERE CXP.VENCE BETWEEN datevalue('" & dtpicker1.value & "') and datevalue('" & dtpicker2.value & "') and saldo <> 0 "

espero te sirva
suerte

Dim fecha As String
fecha = Format(DTVENCE.Value, "mm/dd/yyyy")
Set rs = New Recordset
strsql = " SELECT * FROM CXP WHERE (DTPicker) >=(Fecha del dia) and (DTPicker) <=(fechaDia)
VariablesDeTipo recordSet Strsql

NOTA: LAS FUNCIONES DE FECHA TE LAS DA POR DEFAULT Y NO ES NECESARIO QUE LAS REALICES