[VB] Selezione voce da listbox in base all' index

[shaone]

Ciao a tutti... vorrei descrivere il mio problema sperando che qualcuno riesca ad aiutarmi.

In pratica popolo una Listbox prelevando i dati da un database access e associo ad ogni voce un ID relativo al record del database in questo modo (PS. lo faccio schematicamente):

[Connessione DB]
[Query]

[Ciclo recordset] ElencoArticoli.AddItem Rs("Descrizione")
ElencoArticoli.ItemData(ElencoArticoli.NewIndex) = Rs("ID") [/Ciclo recordset]

A questo punto ho una Textbox e vorrei che inserendo da tastiera l'ID (Che corrisponde ad un ID dei campi recuperati dal database) , mi si selezioni automaticamente la vocecorrispondente nella listbox.

PS. Usando List1.Selected(0) = True mi seleziona l'indice corrispondente ma a me interesserebbe che facesse la selezione in base all'ID del database

So che è contorta la cosa ma spero di essere stato chiaro.. e che qualcuno sappia come aiutarmi! Ciao!

[Dardino]

Ti posto il codice di esempio che con le opportune modifiche dovrebbe funzionare per il tuo caso.

Private Sub Form_Load()
    Combo1.AddItem ("prova1")
    Combo1.ItemData(Combo1.NewIndex) = 11
    Combo1.AddItem ("prova2")
    Combo1.ItemData(Combo1.NewIndex) = 22
    Combo1.AddItem ("prova3")
    Combo1.ItemData(Combo1.NewIndex) = 33
    Combo1.AddItem ("prova4")
    Combo1.ItemData(Combo1.NewIndex) = 44
    Combo1.AddItem ("prova5")
    Combo1.ItemData(Combo1.NewIndex) = 55
    Combo1.AddItem ("prova6")
    Combo1.ItemData(Combo1.NewIndex) = 66
    Combo1.AddItem ("prova7")
    Combo1.ItemData(Combo1.NewIndex) = 77
    Combo1.AddItem ("prova8")
    Combo1.ItemData(Combo1.NewIndex) = 88
End Sub

Private Sub Text1_Change()
    If Text1.Text <> "" Then
        RicercaCodice
    End If
End Sub

Sub RicercaCodice()
    For i = 0 To Combo1.ListCount - 1
        If Combo1.ItemData(i) = Text1.Text Then
            Combo1.ListIndex = i
            Exit For
        End If
    Next i
End Sub