Riempimento Automatico ListBox

[19pantarei75]

Ciao a tutti.
Utilizzando access, vorrei creare una casella di testo di nome MyRicerca ed una ListBox (Casella di Riepilogo) chiamata Ricerca che punta ad una tabella FORNITORE.
Andando a riempire la casella di testo via via che digito le lettere dovrebbe comparire il nome del Fornitore.

Ho fatto il seguente ma non funge

Private Sub MyRicerca_Change()
Dim CaratteriDigitati As String
   CaratteriDigitati = Nz(Me!MyRicerca.Text, "")
   Me.Elenco.RowSource = "SELECT NomeFornitore FROM FORNITORE " & _
      "WHERE NomeFornitore LIKE '" & CaratteriDigitati & "*'"

Digitando le lettere scompaiono persino i valori nella ListBox.
Qualche aiuto?

[alka]

Originariamente inviato da 19pantarei75
Qualche aiuto?

Hai già aperto una discussione su un problema del tutto analogo,
questa.

Non si aprono più discussioni per lo stesso argomento, quindi continua la discussione segnalata (oltre al fatto che in questa manca completamente il linguaggio nel titolo, richiesto dal Regolamento).