Fechas en acces

[martindebustos]

Hola amigos:
Si alguien me puede ayudar con esta consulta se lo voy a agradecer mucho,

Estoy trabajando con una Base de datos en Acces y tengo a el campo FechaI declarado como Fecha/Hora --> corta, bueno no se porque no funciona la consulta, la estoy haciendo desde una pagina con ASP logico..
Esta es la porcion de codigo...

Set conexion = server.CreateObject("adodb.connection")
Set Consulta = server.CreateObject("adodb.recordset")
conexion.open "DSN=cursos"
fechaA=CDate(Date)

strSQl="Select * From TCurso Where FechaI<" & FechaA
Consulta.open strSQL, conexion

Desde ya muchas gracias.