Visual Basic - filtrar una BD por una fecha

hola a todos:
tengo una BD ACCES y VB6, quiero filtrar una tabla para que me resulte nadamás los registros del día de hoy y lo hago:
tira = "Select * from ventas where fecha = date"
con esta instrucción no me resulta nada aunque tenga registrados datos con la fecha de hoy. Alguien me puede decir qué es lo que está mal?
Gracias a todos.
Saludos

debes hacerlo " where month(fecha)=" & mes & " and day(fecha)=" & dia & " and year(fecha) = " & ao , asi de esa forma

No te lies:
"select * from ventas where fecha = #" & Date & "#"

voy a poner en práctica su consejo, espero me funcione. Agradezco su amabilidad. Nuevamente agradecido. Paco