اساتيد SQL اين كد چه مشگلي داره ؟؟

[electro-learning]

کد:

[align=left]
dIff = DateDiff("d", date1, date2)

If DateDiff("d", date1, date2) < 0 Then
w = MsgBox("")
Exit Sub
End If

  a = "Select * From Table3 Where DateDiff(""" & "d" & """,""" & date1 & """, MDate )<= """ & dIff & """  "

Adodc1.RecordSource = a
   Adodc1.Refresh
[/align]

اين كدو من براي پبدا كردن تاريخ( كه در داخل فيلد MDate ديتابيس هست) بين دو تاريخ ديگه كه داخل دو متغيير date1 و date2 هست نوشتم
مشگلش اينه كه بگير نگير داره يك دفعه كار ميكنه يك دفعه نميكنه ؟؟

مثلا اگه تاريخ داخل ديتابس(البته يكيش ) باشه 01/07/2006 و date1 هم باشه 28/06/2006 وdate2 هم باشه 31/07/2006 تابع چيزي رو بر نميگردونه ولي اگه همين date1 بشه 20/06/2006 جواب مبده اين يك موردشه
لطفا كمك كنيد

[electro-learning]

يكي جواب بده