Liste Kutusunda Veri Arama

Merhaba,
Liste kutusunda gösterilen üç sütun veriyi tek bir metin kutusuna göre metin kutusu change edildiği zaman listeyi güncellemesini istiyorum birkaç yöntem denedim ancak başarılı olamadım yardımcı olabilirseniz sevinirim.
örnek olarak hepsini ayrı ayrı metin kutuları ile arıyor bunu tek bir metin kutusu ile nasıl yapabilirim?

ö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;

çok teşekkür ederim ilginiz için çok faydalı oldu

Rica ederim
İyi çalışmalar
Sorun çözüldüyse cevaplanmışlara taşıyalım