كود :
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\zir-3.mdb")
Dim da As New OleDbDataAdapter("SELECT * FROM USERS where [Survey Time]>='DateTimePicker1.Value.Date'", con)
Dim dt As New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt