problemi script con campo data/ora

[mefisto_ax]

Non proprio così ma il concetto è quello

Scusami se sono inopportuno, ma ho fatto la modifica che mi hai suggerito :

 rs.Open "Select * From Mensa where [ref_ospite] = " & Str(Nz(Me![IdOspite].Value, 0)) & "    and DataPasto = '" & Date & "  and OraPasto = '" & Time & "    and TipoPasto ='" & TipoPasto & "'",

che errore c'é ? mi sembra apposto ma non gli va a genio