Aşağıdaki gibi düzenlenirse olabilir araya ; koyulunca sorun kalmaz

Dim Aranan As String

Dim SqlAra, SqlKrt As String

Dim Aralik As Variant



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, "=<", "<="), "=>", ">=")

        If InStr(Aranan, ";") > 0 Then

        Aralik = Split(Aranan, ";")

            SqlKrt = " WHERE (((tblKayitlar.yasi) " & xAranan & Aralik(0) & ") and ((tblKayitlar.yasi) " & xAranan & Aralik(1) & "))"

        Else

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

        End If

    

    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

aşağıdaki kod eklenmiştir
kod sayın @feraz 'a aittir

Private Sub txtAramaKutusu_KeyPress(KeyAscii As Integer)



    If cerArama = 2 Then

        Select Case KeyAscii

            Case 48 To 57, 59, 8, 60, 61, 62 '8 silme 60 < ,62 >,61 =,59 ;

        Case Else

            KeyAscii = 0

            MsgBox "Sadece >,<,= ve rakamlar girilebilir...", vbCritical, "Hata"

        End Select

    End If



End Sub