Pregunta abierta: Ayuda con VB 6 y Acces?

Porque esta instruccion no me funciona "Select * from Eventos where FechaIni=" & Date. Donde FechaIni es un campo de una BD en acces tipo Fecha y DATE en la instruccion en lenguage VB que me da la fecha actual, se supone que la instruccion me deberia de arrojar todos los registros que coincidan con la fecha actual pero me regresa cero registros y sin embargo la BD si tiene registros para mostrarme... alguien sabe que estoy haciendo mal?