ComboBox et requete

Je voudrais que lorsque je sélectionne un élement dans le ComboBox (Une désignation) s'affiche le numéro correspondant dans un textBox. Cette désignation et ce numéro se trouve dans une table:
Pour le moment j'ai réussi à remplir le ComboBox de la façon suivante:

Private Sub Frm_Rechercher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim StrSelect As String = "SELECT Num_racine, Designation_art FROM RACINE ORDER BY Num_Racine"

Dim MyCommandS As OleDbCommand = New OleDbCommand(StrSelect, MyConnection)

Dim Ligne As DataRow

MyDataAdapter.SelectCommand = MyCommandS

MyDataAdapter.Fill(MyDataSet, "RACINE")

MyDataTable = MyDataSet.Tables("RACINE")

For Each Ligne In MyDataTable.Rows

Cb_Racine.Items.Add(Ligne.Item("Num_racine") & " | " & Ligne.Item("Designation_art"))

Next

Je souhaiterai maintenant afficher le numéro(Num_racine) correspondant à l'élément sélectionné dans le ComboBox dans un TextBox. Or avec le code suivant je n'affiche que le premier numéro de la table et non celui correspondant à la sélection:

Private Sub Cb_Racine_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cb_Racine.SelectedIndexChanged

Dim StrSelect As String = "SELECT Num_Racine FROM RACINE WHERE RACINE.Designation_art ='Cb_Racine.SelectedValue'"

Dim MyCommandS As OleDbCommand = New OleDbCommand(StrSelect, MyConnection)

Dim Ligne As DataRow

MyDataAdapter.SelectCommand = MyCommandS

MyDataAdapter.Fill(MyDataSet, "RACINE")

MyDataTable = MyDataSet.Tables("RACINE")

txt_Racine.DataBindings.Add("Text", MyDataSet.Tables("RACINE"), "Num_racine")

txt_Racine.DataBindings.Clear()

Pouvez vous m'aider?

Merci

Tu peux essayer de remplacer :
   = 'cb_racine.selectedvalue'
par :
 like '"+cb_racine.selectedtext+"'

.Maytheforcebewithyou.Maxime.