08-05-17, 11:08 PM
كود :
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![[صورة مرفقة: 149427220630641.jpg]](http://store6.up-00.com/2017-05/149427220630641.jpg)
![[صورة مرفقة: 149431537317081.png]](http://store6.up-00.com/2017-05/149431537317081.png)