Query filter tanggal di VB.net dan database MS Access

DateFilter.vb

' definisikan sql string
Dim sql As String = "SELECT * FROM [Order Summary] WHERE [Order Date] BETWEEN ? AND ?"

' definisikan variable untuk retrieve data
Dim dt As New DataTable
Dim cn As New OleDb.OleDbConnection(My.Settings.northwindConnectionString)
Dim da As New OleDb.OleDbDataAdapter(sql, cn)

' masukkan parameter query
da.SelectCommand.Parameters.AddWithValue("?_1", DateTimePicker1.Value.ToString("yyyy-MM-dd"))
da.SelectCommand.Parameters.AddWithValue("?_2", DateTimePicker2.Value.ToString("yyyy-MM-dd"))

' jalankan query dan langsung isi ke datatable
da.Fill(dt)

' tampilkan data ke grid
DataGridView1.DataSource = dt

so simple :D