caricare testo e value di listbox

[Kahm]

salve a tutti
avendo un listbox,dovrei caricare sia il testo che il valore...tipo come accade in un combobox in html
avendo il seguente codice:

        lettore = comando.ExecuteReader

        While lettore.Read
            i = i + 1
            lst.Items.Add(lettore("Testo"))
            lst.Items(i).Value = lettore("codice")

        End While

da errore se i è 1,di indexout of range exception
mentre se i è 0, da errore:"Index non compreso nell'intervallo"

cosa posso fare per caricare oltre la descrizione anche il codice?,in modoche quando clikko posso reperire il codice!
grazie

[Raffa62]

lettore = comando.ExecuteReader

While lettore.Read
dim l as new ListItem( lettore("Testo"),lettore("codice") )
lst.Items.Add( l )

End While