Visual Basic - Problema con ADO ¡Urgente!

Necesito ayuda con in aconsulta 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
DESDE = InputBox("¿Desde que fecha?", "Fecha de Inicio")
HASTA = InputBox("¿Hasta que fecha?", "Fecha de Fin")
´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
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"