01.Dim conn As New OleDbConnection("provider=Microsoft.ace.oledb.12.0;data source=\\10.66.15.200\NYKAPP\Database2.accdb")
02. Dim strSQLr As String
03. strSQLr = "SELECT * from Table2 where add_date between #" + Format(DateTimePicker1.Value, "MM/dd/yyyy HH:MM:ss tt") + "# AND #" + Format(DateTimePicker2.Value, "MM/dd/yyyy HH:MM:ss tt") + "#"
04.
05. Dim da As New OleDbDataAdapter(strSQLr, conn)
06. Dim dt As New DataTable
07. da.Fill(dt)
08. DataGridView1.DataSource = dt
09. conn.Close()
