Combobox comment ajouter une valeur?

slt a tt,

Je cherche a ajouter a un combobox une valeur pour que quand je selectionne un chapitre en retour j'ai l'ID de la BDD.

Dans mon code suivant mon combobox se rempli bien avec les Chapitre mais je n'arrive pas a remplir la value que je veux récuperer via cbChapitre.SelectedValue

Sub

cbChapitre_Refresh()

'Remplissage de la combobox

Dim Req AsString = "SELECT ID_Chapitre, Chapitre " & _

"FROM CHAPITRE_TBL " & _

"ORDER BY Chapitre"

Try

'RAZ

cbChapitre.Items.Clear()

'Récupération des données

Dim da AsNew SqlClient.SqlDataAdapter(frmMain.aei.cmd)

Dim dt AsNew DataTable

'Construction de la requête

frmMain.aei.cmd.CommandText = Req

'Exécution de la requête

da.Fill(dt)

'Ajout des éléments dans la combobox

'Boucle sur les résultats

Dim i AsInteger

For i = 0 To dt.Rows.Count - 1

'Ajout de la valeur dans la combobox

cbChapitre.Items.Add(dt.Rows(i)(1))

'cbChapitre.Items.Item(i).Value = dt.Rows(i)(0)

Next

'Libération des ressources

da =

Nothing

dt =

Nothing

Catch ex As Exception

frmMain.aei.MessageErreur(ex.Message)

Finally

EndTry

EndSub