اين الخطأ ؟ خطأ فى كود عدد السجلات

استخدمت الكود التالي لفلترة السجلات لكن عدد السجلات يكون خطأ

عندما يكون نتيجة الفلترة صفر تكون قيمة xx صحيحة ، لكن عندما يكون هناك نتيجة تكون قيمة المتغير لا تعبر عن عدد السجلات الفعلي

Dim xx As Long
Dim ff ,str As String

Select Case Me.frame32.Value
Case 1
    ff = "[memname] like '*" & Me.txtname & "*'"
Case 2
    ff = "[memname] like '" & Me.txtname & "*'"
Case 3
    ff = "[memname] like '*" & Me.txtname & "'"
End Select

Me.Filter = ff
Me.FilterOn = True
xx = Me.RecordsetClone.RecordCount
MsgBox xx
If xx = 0 Then
    MsgBox "لم يتم العثور على اية نتائج"
    Me.FilterOn = False
else
    'xx هذا الرقم لا يطابق عدد السجلات الفعلى بل غالبا ما يظهر 2 فقط    
    str="تم العثور على عدد " & xx    
    msgbox str
End If