Grazie, quindi una cosa del genere?

codice:
Data = dateAdd("YYYY",-1,date())

SQL = " SELECT * FROM Prodotti WHERE Giacenza >= 1 AND Cancellato = False AND (((Data)=#" & date() & "#))"
Set RS = Conn.Execute(SQL)