codice:
Adodc1.RecordSource = "Select * from tabella where scadenza < #" & Format$(date, "mm/dd/yyyy") & "#"