Scusami se sono inopportuno, ma ho fatto la modifica che mi hai suggerito :
che errore c'é ? mi sembra apposto ma non gli va a geniocodice:rs.Open "Select * From Mensa where [ref_ospite] = " & Str(Nz(Me![IdOspite].Value, 0)) & " and DataPasto = '" & Date & " and OraPasto = '" & Time & " and TipoPasto ='" & TipoPasto & "'",