kodları aşağıdaki gibi düzenler misiniz
txtAdAra değiştiğinde olayı

Private Sub txtAdAra_Change()

     Ara (txtAdAra.Text)

End Sub

txtSoyadAra değiştiğinde olayı

Private Sub txtSoyadAra_Change()

    Ara , txtSoyadAra.Text

End Sub

Ara fonksiyonu

Sub Ara(Optional adtxt As String, Optional soyadtxt As String) 'değişti 

If IsNull(adtxt) Then adtxt = Me.txtAdAra.Value '<--Eklendi

If IsNull(soyadtxt) Then soyadtxt = Me.txtSoyadAra.Value'<--Eklendi

   

    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 Not IsNull(Me.txtAdAra.Value) Then strSQL = strSQL & " and Ad like '%" & Me.txtAdAra.Value & "%'"     '<--silindi

'     If Not IsNull(Me.txtSoyadAra.Value) Then strSQL = strSQL & " and Soyad like '%" & Me.txtSoyadAra.Value & "%'"     '<--silindi

      strSQL = strSQL & " and Ad like '%" & adtxt & "%'" & " and Soyad like '%" & soyadtxt & "%'" 'silindi diğerleri sadece bu eklendi



    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