çalışmanızda sadece ara fonksiyonunu aşağıdaki kodla değiştirip dener misiniz?
metin alanlarında sorun çıkarmadan çalıştı sayısal alan için emin değilim
dediğim gibi sadece çalışmanızdaki Ara değişecek
metin değiştiğinde olayları eskisi gibi

call Ara

olarak kalacak

Sub Ara()

Dim AktifNesne As Variant



    With cn

        If .State = adStateOpen Then

            .Close

            Set cn = Nothing

        End If

    End With



    Set cn = CurrentProject.Connection



     strSQL = "Select id,FORMAT(Tarih, 'dd.mm.yyyy') as Tarih,Ad,Soyad,Yas,format(Telefon,'(###) ### ## ##')as Telefon From Tablo1 where Not IsNull(id)"

     If Screen.ActiveControl.Name = Me.txtAd.Name Then AktifNesne = Me.txtAd.Text Else AktifNesne = Me.txtAd.Value

         strSQL = strSQL & " and Ad like '%" & AktifNesne & "%'"

     If Screen.ActiveControl.Name = Me.txtSoyadAra.Name Then AktifNesne = txtSoyadAra.Text Else AktifNesne = txtSoyadAra.Value

         strSQL = strSQL & " and Soyad like '%" & AktifNesne & "%'"



    With rs

        If .State = adStateOpen Then .Close

        .CursorType = adOpenDynamic

        .CursorLocation = 3

        .LockType = adLockOptimistic

        .Open strSQL, cn, , , 1

    End With



    Lstbox.ColumnCount = 6

    Lstbox.ColumnWidths = "2Cm;2Cm;3Cm;3Cm;3Cm;3Cm"

    Lstbox.ColumnHeads = True



    Set Lstbox.Recordset = rs



End Sub