Visual Basic - filtrar fechas- adjunto codigo

Tengo este codigo cuando pongo esto

Set db1 = OpenDatabase(App.Path & "\INVENTARI.mdb")
Sql1 = " select * FROM Inventari WHERE dataman"
Set rs1 = db1.OpenRecordset(Sql1, dbOpenSnapshot)

no me filtra pero me salen los registros, pero cuando pongo

Set db1 = OpenDatabase(App.Path & "\INVENTARI.mdb")
Sql1 = " select * FROM Inventari WHERE dataman <= #" & Date & "# order by dataman asc "
Set rs1 = db1.OpenRecordset(Sql1, dbOpenSnapshot)


me dice que no hay registros activos, cuando si que los hay, ya lo he intentado de varias formas

porfavor alguna sugerència

Gracias

Félix

Date es una fecha no necesita las # para advertir al Sql que es una fecha, quitalas.
En el caso de que siga sin salir deberas consultar con la fecha en americano, mes, día y año, formateando con lo que si necesitarás las #, pues al formatear se convierte en texto
Sql1 = " select * FROM Inventari WHERE dataman <= #" & format(Date,"m-d-yyyy") & "# order by .
Supongo que dataman es un campo de fecha.