[محمد العبيدي]

اخي العزيز المشكلة ليست في كود البحث بين تاريخين
المشكلة في كيفية استلام النتيجة
يمكنك اضافة الكود التالي
rs.MoveLast
rs.MoveFirst

بعد عملية استلام النتيجة
ليكون كود البحث بالشكل التالي

كود :

If Not IsDate(Text21.Text) Or Not IsDate(Text22.Text) Then Exit Sub

Set rs = db.OpenRecordset("select * from tbl1 where Date_To Between #" & CDate(Text21.Text) & "# and #" & CDate((Text22.Text)) & "#")
rs.MoveLast
rs.MoveFirst
If rs.RecordCount = 0 Then MsgBox "لايوجد نتائج للبحث": Exit Sub