Listbox ta veri süzme

[mtbi00]

Merhaba,

Listbox taki verileri Textbox a girilenlere göre süzmek istiyorum. Daha önceden oluyordu ama bugün yapamadım.

Private Sub UserForm_Initialize()
Call Baglanti_Yap
Set Kayit = CreateObject("adodb.recordset")
S = "SELECT KOD, EBLK, YBLK, DAI, ADSOYAD, TCKN FROM [DATA$] ORDER BY KOD" >>>> Kodu çalıştırdığımda "Tür uyuşmazlığı" diye hata veriyor.
Kayit.Open S, Baglan, 1, 2
If Kayit.RecordCount > 0 Then


Bu konuda yardımcı olacak varsa sevinirim.

İyi çalışmalar.