مشكلة في البحث بين تاريخين

اخواني الكرام

السلام عليكم ورحمة الله وبركاته

عندي مشكلة في كود البحث بين تاريخين باستخدام اداة combo ، ولم اتوصل لمعرفة حلها :

هذا هو الكود

Private Sub Command1_Click()


Dim first As String
Dim last As String
Dim D1, M1, Y1 As Integer
Dim D2, M2, Y2 As Integer





D1 = Combo1.Text
M1 = Combo2.Text
Y1 = Combo3.Text


first = D1 & "/" & M1 & "/" & Y1



D2 = Combo6.Text
M2 = Combo5.Text
Y2 = Combo4.Text

last = D2 & "/" & M2 & "/" & Y2

If (Y2 < Y1) Or (Y2 = Y1 And M2 < M1) Or (Y2 = Y1 And M2 = M1 And D2 < D1) Or (Y2 = Y1 And D2 = D1 And M2 < M1) Or (M2 = M1 And D2 = D1 And Y2 < Y1) Then
MsgBox "التاريخ الذي قمت بإختيارة خاطىء ", vbOKOnly, "تنبيه"
Exit Sub
End If



   Data1.RecordSource = "select * from sale where datee between " & "#" & Format(first, "dd/mm/yyyy") & "# And " & "#" & Format(last, "dd/mm/yyyy") & "# "

Data1.Refresh

End Sub

وهذه صورة لواجهة الفورم في المرفقات

عندما اقوم بالتنفيذ في جهازي لايقوم الكود بالبحث.

وعندما جربت على جهاز اخر قام الكود بالبحث بشكل دقيق.

الذي اريد معرفته ، هل الكود فيه أي خطأ؟

هذا اولا.

وثانيا : لماذا الكود يعمل في جهاز دون جهاز، أي لماذا قام بالتنفيذ في جهاز اخر ولم يقم بالتنفيذ في جهازي ، ما هو السبب؟

وللعلم : أنا رابط البرنامج مع قاعدة البيانات باستخدام الاداة data

وجزاكم الله خيرا