ListView'e alinan verilerde karekter sorunu

   Merhaba Arkadaslar, 

ListView'e direk netsis'ten Cari bilgileri aliyorum.
Gelen verilerde karekter sorunu yok fakat arama bölümünden arama yaparken karekter sorunu yasiyorum.

Örnegin.

Listede Is bankasi var arama yaparken Is bankasi yazdigimda çikmiyor.

Kodlar asagida.

Ilgilize simdiden tesekkür ederim.

Sub veri_getir()
Dim SqlText As String
Dim conn, rs As Object
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
ListView1.ListItems.Clear
 With conn
    .Provider = "sqloledb"
    .CommandTimeout = 120
    .ConnectionString = "Data Source=.......;USER ID=.......;PASSWORD=.......;AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = "........."
    End With
    SqlText = "SELECT *"
    SqlText = SqlText + " FROM TBLCASABIT where CARI_ISIM like '" & TextBox1.Text & "%';"
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    rs.MoveFirst
    Do While Not rs.EOF
        i = i + 1
        ListView1.ListItems.Add , , rs("CARI_KOD").Value
        ListView1.ListItems(i).SubItems(1) = rs("CARI_ISIM").Value
        rs.MoveNext
    Loop
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub