Access - Buscar fecha con un SELECT

Buenas. Tengo un problema con ua instrucción SQL, tengo que hacer una consulta en una tabla donde tengo un campo fecha de tipo fecha/hora y quiero pasarle una variable de tipo Date, al ejecutar esta instrucción me dice que no coinciden los tipos en la expresión de criterios.
Esta es la instrucción Select: Set RSCALENDARIO = Bd.Openrecordset("SELECT * FROM CALENDARIO WHERE CALENDARIO.FECHA = '" & FechaFinal & "' ")
A ver si alguien puede decirme dónde está el error.
Espero que me haya explicado bien. Gracias.

Te has dejado las almohadillas, las fechas van entre ellas:
Set RSCALENDARIO = Bd.Openrecordset("SELECT * FROM CALENDARIO WHERE CALENDARIO.FECHA = #" & FechaFinal & "# ")
Un saludo
Skakeo®