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

سلام
من فیلدی از نوع 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