Visual Basic - SQL

Señores Programadores Saludos...

quisiera saber si alguien me puede ayudar con un problema que tengo para realizar una consulta, gracias.

Necesito que de un grupo de FECHAS la consulta me seleccione las fechas que son menores a la fecha hoy "Identificar Productos Vencidos" y que me cuente la cantidad de registros bajo esta condición. he tratado de dos maneras:

1. Para la primera Clausula WHERE consulta todos los registros o ninguno y no hace exclusión por la condición o no la tiene en cuenta mas bien, me cerciore de que los registros de la tabla y unos cumplen la condicione y otros no.

fecha = Date
MsgBox fecha

Set rsvet = dbs.OpenRecordset("SELECT FechaVencimiento " _
& "FROM InventarioFarmacos " _
& "WHERE [FechaVencimiento]<=" & fecha)
With rsvet
.MoveLast
re = .RecordCount
End With

MsgBox re

2. como segunda opcion GROUP BY y HAVING pero por este lado no me funciona el codigo, hay errores de sintaxis creo.

Set rsvet = dbs.OpenRecordset("SELECT FechaVencimiento, " _
& "FROM InventarioFarmacos " _
& "GROUP BY FechaVencimiento HAVING FechaVencimiento <= fecha;")

Otra opción tal ves sea que este tipo de consultas no se hagan de ninguna de estas dos formas. si alguien me puede ayudar muchas gracias de antemano.

He probado esto y me funciona
set aux=bdd.OpenRecordset("Select alta from expedientes where alta<=#" & date & "#")

La diferencia está en que la fecha a comparar está entre #, el resto parece estar correcto.