Çoklu arama formu, çalışmasında sorun yok sadece kriter girmeden ara tuşuna bastığım zaman run time error 2533 hatası alıyorum, yardımlarınızı bekliyorum.

Sn peter088; like '*" & ghfgh & "*' seklinde yazilabilir. K nin bos oldugunda filitrenin kaldirilmasi gerekmektedir.
Private Sub ARA_Click()
Dim K As String
K = ""
If Len(m) > 0 Then
If Len(K) > 0 Then K = K + " AND "
K = K + "[ADISOYADI] Like'*" + m.Value + "*'"
End If
If Len(t) > 0 Then
If Len(K) > 0 Then K = K + "AND"
K = K + "[TCNO] Like'*" + t.Value + "*'"
End If
If Len(d) > 0 Then
If Len(K) > 0 Then K = K + "AND"
K = K + "[DOGUMYERI] Like'*" + d.Value + "*'"
End If
If K <> "" Then DoCmd.ApplyFilter , K Else Me.Filter = "": Me.FilterOn = True
AYRINTI.Visible = True
End Sub

hocam teşekkür ederim elinize sağlık, çok teşekkür ederim, arama butonuna kriter girmeden bastığım zaman tüm kayıtları listeliyor.