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

كود :

  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

هذا الكود يجلب لك الأسماء التي تتوافق مع تاريخ اليوم

جرب وإسأل عن عدد السجلات إذا أكبر من صفر 
إعرضها في شاشة جديدة , لأنه من الممكن أن يظهر لك أكثر من اسم , ولا يمكنك تحديد النتائج , وذلك تحتاج إلى نافذة مختلفة لعرض النتائج .


حاول بنفسك .