Query con confronto di data

[tabarto]

Ciao a tutti, ho una pagina che deve tirar fuori i lavori che devo fare nella giornata.
La query tira furoi tutti i dati da due tabelle presenti nel mio database mdb.
Il problema e' riuscire a prendere i lavori solo di oggi.
se metto la data fissa cioe':

sql= "SELECT * FROM AssignCall, Contacts where Contacts.IdLead=AssignCall.RefLead and AssignCall.AssignCall="& Idreq &" and AssignCall.Data=#8/3/2006# Order by AssignCall.Data desc, AssignCall.TypeCall desc"

Tutto ok la query prende tutti i dati del 8/3/2006

Per rendere la data dinamica ho creato una variabile che prende la data del sistema operativo e poi la dovrebbe confrontare con quella presente nel Db, ecco lo script:

Dim Oggi
Oggi= (FormatDateTime(date(),vbShortDate))

sql= "SELECT * FROM AssignCall, Contacts where Contacts.IdLead=AssignCall.RefLead and AssignCall.AssignCall="& Idreq &" andAssignCall.Data="&Oggi&" Order by AssignCall.Data desc, AssignCall.TypeCall desc"

Il problema e' che non tira fuori niente?
Io penso sia un problema di sintassi qualcuno mi sa aiutare?

[maximum]

Fatti stampare la query a video e postane qui il risultato.