Visual Basic - Tengo problemas con formato de Fecha!!

Hola !!! Tengo un problema con una consulta de Fecha.... Necesito que me sume los totales de venta del día y hago la consulta siguiente:

sql="select sum(importe) from ventas where fecha=#"& Date &"# "
cmd.commandtext=sql
set rec=cmd.execute
if rec.recordcount>0 then
txt_total=rec!importe
end if

Estoy segura que el problema es con la fecha porke cuando hago la misma consulta sin la clausula where si me hace la sumatoria pero yo necesito la sumatoria de la fecha del dia... mi base de datos está en access...=(

prueba dando formato mm/dd/yyyy a la fecha, los campos fecha de Access se graban en ese formato, aunque cuando abras la tabla lo veas en dd/mm/yyyy