öncelikle arama yapılacak metin kutusunu ekleyin ismi txtKriter olsun
dağiştiğinde olayını aşağıdaki gibi düzenleyin

Private Sub txtKriter_Change()

Call Suz

End Sub

sonrada süzme fonksiyonunu

Sub Suz()

Krtr = txtKriter.Text

If Krtr <> "" Then Krtr = "[Kosul] Like '*" & Krtr & "*'"

Krtr = IIf(Krtr = "", vbNullString, "WHERE " & Krtr)

  Me.liste_teknikrapor.RowSource = "select * from Detay_TeknikRapor_HizliArama_Sorgusu " & Krtr

  With txtKriter

  .SetFocus

  .SelStart = Len(.Text)

  End With

End Sub

olarak değiştirin
son olarak da sorgu kodunuzu aşağıdaki kodla değiştirip öyle deneyin

SELECT Table1.ID, Table1.SEHIR, Table1.ULKE, Table1.Nufus, [SEHIR] & "|" & [ULKE] & "|" & [Nufus] AS Kosul

FROM Table1;