كود :
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
![[صورة مرفقة: 3dlat.net_25_15_7636_10390271-720257741405822-79.gif]](http://upload.3dlat.net/uploads/3dlat.net_25_15_7636_10390271-720257741405822-79.gif)