Visual Basic - Error 3061 con Consulta SQL

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"

Pruebalo Asi a ver:

DESDE = Masked1.text
HASTA = Masked2.text
´Crea consulta

Set CMtemp2 = dbHoras.OpenRecordset("SELECT * From Horas WHERE HORAS.DIA >= Cdate(DESDE) And HORAS.DIA < cdate(HASTA)", 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

Atte
Eduardo