questo è il processo per l'inserimento dei dati nella listBox

Sub Page_Load(sender as Object, e as EventArgs)

myConnection.Open()
BindData()
End Sub


Sub BindData()

Const strSQLPopola as String = "SELECT campionato FROM tbcampionati"
Dim myCommand as New ODBCCommand(strSQLPopola, myConnection)

Dim objDR as ODBCDataReader
objDR = myCommand.ExecuteReader(CommandBehavior.CloseConne ction)

lstcatappartenenza.DataSource = objDR
lstcatappartenenza.DataBind()


lstcatappartenenza.Items.Insert(0, new ListItem("-- Scegli un campionato --"))
End Sub

e mi carica tutto correttamente , ho provato a controllare i valori generati vedendo il codice html della pagina e sono corretti