Faire correspondre 2 class en combobox vb.net

Bonjour,

Je suis actuellement en train de faire un programme pour modifier une base de données.

Dans ma base de données je dispose de deux tables :
parent(no_parent(PRIMAIRE),nom_parent,prenom_parent,adresse_parent,cp_parent,ville_parent)
enfant(no_enfant(PRIMAIRE),nom_enfant,prenom_enfant,no_parent#)

Dans mon programme, je dispose d'une combobox dans laquelle s'affiche la table enfant (via une classe), de deux textbox (nom,prenom), et d'une combobox dans laquelle s'affiche la table parent (encore une fois via une classe).

Voici mon code :

Imports System
Imports System.Data
Imports MySql.Data
Imports MySql.Data.MySqlClient

Public Class Modifier_un_enfant
Private oConnexion As New MySqlConnection("server=localhost;user=root;database=projet_alsh;port=3306;password=;")
Private oCommande As MySqlCommand

Private Sub Modifier_un_enfant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim requete As String
cbx_modifier_un_enfant_enfant.Items.Clear()

Try
oConnexion.Open()
requete = "SELECT no_enfant,nom_enfant,prenom_enfant,no_parent FROM enfant"
oCommande = New MySqlCommand(requete, oConnexion)
Dim Enfant As MySqlDataReader = oCommande.ExecuteReader
While Enfant.Read()
cbx_modifier_un_enfant_enfant.Items.Add(New Class_Modifier_un_enfant(Enfant.Item("no_enfant"), Enfant.Item("nom_enfant"), Enfant.Item("prenom_enfant"), Enfant.Item("no_parent")))
End While
Enfant.Close()
Catch ex As Exception
MessageBox.Show("Insertion Class : " + ex.Message)
Finally
oConnexion.Close()
End Try
Try
oConnexion.Open()
requete = "SELECT no_parent,nom_parent,prenom_parent,adresse_parent,code_postal_parent,ville_parent FROM parent"
oCommande = New MySqlCommand(requete, oConnexion)
Dim Parent As MySqlDataReader = oCommande.ExecuteReader
While Parent.Read()
cbx_modifier_un_enfant_parent.Items.Add(New Class_Modifier_un_parent(Parent.Item("no_parent"), Parent.Item("nom_parent"), Parent.Item("prenom_parent"), Parent.Item("adresse_parent"), Parent.Item("code_postal_parent"), Parent.Item("ville_parent")))
End While
Parent.Close()
Catch ex As Exception
MessageBox.Show("Insertion Class : " + ex.Message)
Finally
oConnexion.Close()
End Try
End Sub

Private Sub cbx_modifier_un_enfant_enfant_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbx_modifier_un_enfant_enfant.SelectedIndexChanged
tbx_nomenfant.Text = cbx_modifier_un_enfant_enfant.SelectedItem.getnom
tbx_prenomenfant.Text = cbx_modifier_un_enfant_enfant.SelectedItem.getprenom
End Sub
End Class



Mon problème est le suivant : lorsque je sélectionne un enfant dans la combobox enfant, les textbox se remplissent en fonction de l'item sélectionné et des données implémentées dans la class, mais la combobox parent ne sélectionne aucun parent, cela veut dire qu'a chaque modification d'un enfant il faut resélectionner le parent.

Je souhaiterai faire une boucle afin de faire correspondre le no_parent de ma classe parent et enfant pour que ma combobox parent sélectionne le parent correspondant à l'enfant sélectionné dans ma combobox enfant (^^) mais je n'arrive pas à trouver de boucle qui fonctionne, pouvez-vous m'aider ?

Si ce n'est pas assez clair, dites le moi =)


Merci !