Set db_menu = OpenDatabase(Frmdb.TxtDbDati.Text)
Data1 = "#" & Format(FrmConsumabili.TxtDataIn, "mm/dd/yyyy") & "#"
Data2 = "#" & Format(FrmConsumabili.TxtDataOut, "mm/dd/yyyy") & "#"
Set rs_menu = db_menu.OpenRecordset("SELECT * FROM locale WHERE data BETWEEN ' " & Data2 & " ' AND ' " & Data1 & " ' ", dbOpenDynaset)


gibra stesso problema
la ricerca sullo stesso mese funziona su mesi diversi no