Visual Basic - Urgente error con fechas

Necesito ayuda con una consulta que saca dias desde...hasta, tengo dos variables las cuales contienes fechas, creo la consulta con SQL, utilizo DAO, pero en el momento en que le digo que lea los valores me da el error 3061, si modifico el SQL me da el error 3075, asi que en este momento estoy perdido. Aqui teneis el codigo.
´Declaracion de variables
Dim CMtemp As QueryDef
Dim CMtemp2 As Recordset
Dim DESDE As Date
Dim HASTA As Date

´Aqui le hice un par de cambios puesto que he quitado los inputbox y he puesto 2 MaskedEdit.
con formato de fecha corta.

DESDE = Masked1.text
HASTA = Masked2.text
´Crea consulta
Set CMtemp = dbHoras.CreateQueryDef("ConMes")
CMtemp.SQL = "SELECT * From Horas WHERE (((HORAS.DIA)>=[DESDE] And (HORAS.DIA)<[HASTA]));"
CMtemp.Close
´Lee los valores
´y da el error 3061
Set CMtemp2 = dbHoras.OpenRecordset("ConMes", dbOpenSnapshot)
´Llena los cuadro de lista con los datos obtenidos
Do Until CMtemp2.EOF
lstF.AddItem CMtemp2("DIA")
lstH.AddItem CMtemp2("HORAS")
CMtemp2.MoveNext
Loop
CMtemp2.Close
´Borra la consulta
dbHoras.QueryDefs.Delete "ConMes"

hola como estas...
esto es todo lo que necesito para mandar una consulta con parametros de fechas


´ extrae registros de calculo de tiempo de servicio´´´´´´´´´´´´´´´´´´´´´
Set qdf = db.QueryDefs("consCostTiempServ") ´ Asigna la consulta especifica
qdf!IdClte = cboCodClte.ItemData(cboCodClte.ListIndex) ´ Pasa el parametro a la consulta
qdf!Fec1 = Format(mebF1, "dd/mm/yyyy") ´ Pasa el parametro a la consulta
qdf!Fec2 = Format(mebF2, "dd/mm/yyyy") ´ Pasa el parametro a la consulta
qdf!CodPol = Trim(UCase(txtCodPoliza)) ´ Pasa el parametro a la consulta
Set rst = qdf.OpenRecordset(dbOpenSnapshot) ´ Realiza consulta



espero te ayude...

saludos
isidroalmaguer

que tal isidro, tenes razon lo no me habia dado cuenta y me las enviaba con cualquier formato, gracias de todos modos