[عبدالله الدوسري]

ضع هذا الكود في زر البحث بين تاريخين :

كود :

       dtPatients.Clear()
       daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
       daPatients.Fill(dtPatients)

---

هكذا : 

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dtPatients.Clear()
       daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
       daPatients.Fill(dtPatients)
   End Sub