Mi serve una combobox che visualizzi dei testi presi da db e mi ritorni l'id (non la riga della combo ma l'id della riga del db corrispondente al testo).

Ho creato una struttura:

codice:
 
    Private Structure comboIdText
        Dim text As String
        Dim value As Integer
    End Structure
Poi per riempire la combo:

codice:
       Dim cb As New comboIdText

        'riempio la lista
        Do While dr.Read()
            cb.value = dr.Item("ID")
            cb.text = dr.Item("NOME")
            combobox1.Items.Add(cb)
        Loop
Come faccio a fare in modo che nella combo si visualizzi solo il testo (cb.text)?