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)

giusto troppi apici
ma sapevo che senza apici mi dava errore nella query con i campi quindi con le variabili no?!!