Devi passare alla query la data nel formato americano usando:

codice:
Dim sDataIN As string
sDataIN = Format(FrmConsumabili.TxtDataIn.Value, "MM/DD/YYYY")