çerçevenin adı cerArama olarak değiştirildi
görünmez arama kutuları silindi
ayrıca bilgi seçiliyken boş değerleri göstermek için arama kutusuna NULL yazmanız yeterli
isterseniz başka bir değerle değiştirebilirsiniz
dilerim işinize yarar

Dim Aranan As String

Dim SqlAra, SqlKrt As String



SqlAra = " SELECT tblKayitlar.kayitNo, tblKayitlar.adiSoyadi, tblKayitlar.yasi, tblKayitlar.bilgi" & _

        " FROM tblKayitlar"

          

Aranan = txtAramaKutusu.Text

    If cerArama = 1 Then

        SqlKrt = " WHERE (((tblKayitlar.adiSoyadi) like '*" & Aranan & "*'))"

    ElseIf cerArama = 2 Then

        If InStr(Aranan, "<") = 0 And InStr(Aranan, ">") = 0 And InStr(Aranan, "=") = 0 Then xAranan = "=" Else xAranan = ""

        Aranan = Replace(Replace(Aranan, "=<", "<="), "=>", ">=")

        SqlKrt = " WHERE (((tblKayitlar.yasi) " & xAranan & Aranan & "))"

    Else

        SqlKrt = " WHERE (((tblKayitlar.bilgi) like '*" & Aranan & "*'))"

        If Aranan = "Null" Then SqlKrt = " WHERE (((tblKayitlar.bilgi) is null))"

    End If

        

        If Len(Nz(Aranan, "")) = 0 Then SqlKrt = ""



        SqlAra = SqlAra & SqlKrt & " ORDER BY tblKayitlar.adiSoyadi"

        lstKayitListesi.RowSource = SqlAra