Ho provato anche in questo modo:
codice:
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ICALens\DB\DB.accdb")
Dim command As New OleDbCommand("Select * From DB_ORDINI_IN_ATTESA Where DATA_ORDINE Between @date1 And @date2 Order By DATA_ORDINE", mconn)
command.Parameters.AddWithValue("date1", DateAdd(DateInterval.Day, -1, DateTimePicker1.Value))
command.Parameters.AddWithValue("date2", DateTimePicker2.Value)
Dim mda As New OleDbDataAdapter(command)
Dim dt As New DataTable
dt.Clear()
mda.Fill(dt)
Dtg_lista_ordini.DataSource = dt
Niente da fare