MDB acesss sur listbox selon saisie Textbox

Bonjour,



Sur access j'ai une table avec la première colonne des noms de villes et la deuxième colonne des Codes postaux.

Sur word j'ai créé un Textbox et je souhaiterais que sur ce Textbox lorsque je saisis un code postal qu'il m'affiche sur une listbox au fur et à mesure que je saisis les noms de villes.
Est ce possible?
Voici une partie de mode code:

Private Sub TextBox10_Change()
  Dim cn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim strConnection As String
    Set cn = CreateObject("ADODB.Connection")
    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=D:\Users\IDCO1\Documents\AUTRE\C50\CP.mdb"
    strSQL = "SELECT ville FROM CP "
    strSQL = strSQL & " Where CP1 like '%" & Me.TextBox10.Value & "%'"
    cn.Open strConnection
    Set rs = cn.Execute(strSQL)
Me.ListBox1.AddItem rs.Fields(0)

    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub