lettore = comando.ExecuteReader

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

End While