Visual Basic - Campos fecha

Necesito obtener unos registros dependiendo de una fecha.He utilizado la siguiente instrucción pero me requiere un operando.

¿que estoy haciendo mal?

AD.RecordSource = "select * from tabla where fecha < #01/01/01#"

¡Gracias!

Yo solito he llegado a solucionarlo,pero si alguién tiene el mismo problema solo hay que sustituir la select por esta otra

select * from tabla where fecha < CTOD('01-01-01')