Aide sur Combobox

Bonjour,

Voila, apres avoir recuperer un champ de ma base access dans mon combobox je voudrai afficher un autre champ dans un textbox par rapport à la sélection de mon combobox

J'ai le message d'erreur suivant :
L'exception System.InvalidCastException n'a pas été gérée
  Message="Impossible d'effectuer un cast d'un objet de type 'System.String' en type 'System.Windows.Forms.TextBox'."
 
Si quelqu'un peux m'aider merci beaucoup

Voici mon code :

Private

Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\PROG.mdb;")

Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()

Mycommand.CommandText =

"SELECT * FROM PROG WHERE D,signation = '" & ComboBox1.Text & "'"

MyConnexion.Open()

Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

myReader.Read()

If myReader.HasRows Then

TextBox1 = myReader(

"Fabricant")

EndIf

myReader.Close()

MyConnexion.Close()

EndSub

ton erreur est ici
if myReader.HasRows Then

TextBox1 = myReader(

"Fabricant" ) End If
fait ca
if myReader.HasRows Then

TextBox1.text= myReader(

"Fabricant" ) End If