Filtrage de listview

Bonjour,
je suis en train de travailler sur vba liée avec une base de données access, j'ai réussi de filtrer ma listview à partir d'un textbox. Mais le problème qu'il faudra saisir le phrase complète pour le filtrer. Est ce que y-a-il une solution pour effectuer un recherche par caractère pour filtrer ma listview. voilà mon code et merci d'avance,
<Dim db As Database
Dim rs As Recordset
Dim Index As Integer

ListView1.Sorted = False
ListView1.ListItems.Clear

Set db = DBEngine.OpenDatabase("C:\Users\Z636237\Desktop\Maintenance1.mdb")
Set rs = db.OpenRecordset("Select * From Articles where Plateau = '" & ComboBox1.Text & "';")

If rs.EOF = False Then
rs.MoveFirst

While Not rs.EOF
Index = 1
' Ecriture dans le LV de la recherche
ListView1.ListItems.Add Index, , rs.Fields("Code_a_barre")
ListView1.ListItems.Item(Index).SubItems(1) = rs.Fields("Emplacement")
ListView1.ListItems.Item(Index).SubItems(2) = rs.Fields("Plateau")
ListView1.ListItems.Item(Index).SubItems(3) = rs.Fields("Position")
ListView1.ListItems.Item(Index).SubItems(4) = rs.Fields("Affectation")

Index = Index + 1
rs.MoveNext
Wend

rs.Close 'Fermeture
>