VB6 Ricerca per data su Access XP

[tomhead]

sql = "select nome,cognome,Tipo,codice" & _ 
" from utenti where DataChiusura = #" & format(Trim(Me.DataInizio),"mm/dd/yyyy") & "#"