[وائل القطاوي]

Dim dt1 As New DataTable
dt1.Clear()
Dim da1 As New OleDbDataAdapter(" SELECT * from [اسم الجدول] where [تاريخ الانتهاء]between #" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "# and #" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "#", con)
da1.Fill(dt1)
MsgBox"انتهى"

قم بتبديل الداتا تايم بالتاريخ اللي تبيه
الاول يمثل تاريخ البدايه اجعله يساوي تاريخ اليوم
والثاني يمثل تاريخ النهاية
وبالتالي اذا وقع التاريخ محسور بين هذين التاريخين يخرج لك رسالة
ضع الكود في اللود للفورم وجرب