Textbox ile Listboxda filitreleme

[vivident]

Merhaba

Textbox yardımı ile listboxda süzme işlemi yapıyorum. Şöyle bir sorunum var
Örneğin arama yaptığım sütunda şu değerler olsun
ali
veli
ahmet
ismail
ayşe

ben textboxta "ismail" kelimesini aratacağım, lakin daha "i" yazdığımda i harfi ile başlayan veriler süzülmesi gerekirken içinde i harfi bulunan cümlelerde süzülüyor
ali
veli
ismail verileri süzülüyor

Private Sub TextBox20_Change() 'süz kelime ile
ListBox1.Clear
On Error GoTo hata
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
    rs.Open "select * from [N1Listem] WHERE [N1Listem].hat LIKE '%" & TextBox20.Text & "%'", baglan, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 19
    .ColumnWidths = "15;47;17;20;27;30;30;30;50;30;150;55;20;30;15;50;150;47;20"
    .Column = rs.getrows
End With
    rs.Close
Set rs = Nothing
hata:
If Err = 3021 Then
    Exit Sub
End If
End Sub

 

[vivident]

Arkadaşlar problemi çözdüm. Sorun % işaretindeymiş

'" & TextBox20.Text & "%'"

Başka bir problem belirtmek istiyorum. Benim arama yaptığım sutun veritabanında "hat" adı altında geçiyor. Kodu incelerseniz (WHERE [N1Listem].hat LIKE)

Tüm sutunlarda arama yapmam için hat,atl,tip....vb gibi sutun başlıklarını yazdım, lakin çalıştıramadım, fikri olan varmıdır ?