Visual Basic - formato fecha

buenas, agradeceria me echarais una mano, porque estoy en el curro y no le veo solución al problemilla,estoy haciendo una aplicacion en vb6.0 y en un formulario debo meter 2 fechas mediante 2 dtpickers(sin hora) y acceder a la base de datos maestra , realizand ouna consulta que me coga solo los registros cuyo campo fecha esté entre las 2 fechas...el problema es que esa tabla( que es maestra y no le puedo modificar el diseño) tiene la fecha guardada con la hora y creo que por eso no me coge ningun registro en la consulta cuando deberia cogerlos.

Esta comprobado que hay fechas entre las 2 que yo le paso pero nunca me coge registros...la ayuda es...

Set rstEmple = db.OpenRecordset("Select id_tipo,Fecha from fichajes where ID_empleado=" & Trim$("" & cmbEmple.Text) & "AND fecha between " & DTPDesde.Value & " and " & DTPHasta.Value & " ")

¿que debo añadir o quitar en mi consulta para q me recoga los registros q debe?

muchas gracias

te amo quique¡¡ mira q probe chorradasy era la mar de sencilla,muchisimas gracias te debo una

solicito me apoyen con este dato, no puede generar la fecha actual a esta grilla cuando ejecuto me indica 30 Diciembre 1899 quiero que sea la fecha actual.

grddetalle.CaptionStyle.Font.Size = 12
grddetalle.CaptionStyle.BackColor = vbWhite
grddetalle.CaptionStyle.ForeColor = vbBlack
grddetalle.Caption = "Calculo de Simulación al " & Format(cadena = Date, "DD MMMM YYYY")
aqui quiero que me devuelva la fecha actual a un dbgrid en mi footer de encabezado
Screen.MousePointer = vbDefault

Gracias
[email protected]