فیلتر بر اساس تاریخ رشته ای

سلام
من فیلدی از نوع short text برای ثبت تاریخ شمسی به صورت 1397/01/01 در نظر گرفتم
ولی کد زیر برای فیلتر کردن رنجی از تاریخ درست جواب نمیده یا اصلا هیچ رکوردی را نمایش نمیده یا همه نمایش میده
کسی میدونه مشکل چیه؟

Dim scriteria, task As String

Dim s1, s2 As String



scriteria = "([RDate]>=" & Me.Text102 & " and [RDate]<=" & Me.Text104 & ")"



task = "select * from Query1 where (RDate BETWEEN " & Me.Text102 & "And " & Me.Text104 & ")"

DoCmd.ApplyFilter task

هم کد بالا رو تست کردم هم کد پایین :

Dim scriteria, task As String

Dim s1, s2 As String

scriteria = "([RDate]>=" & Me.Text102 & " and [RDate]<=" & Me.Text104 & ")"

task = "select * from Query1 where (" & scriteria & ")"

DoCmd.ApplyFilter task