Message affiché

==>c'était au niveau de cette ligne :

ObjDataRow = ObjDataSet.Tables("Fournisseur").NewRow()

==> tout le code :

Imports System.Data
Imports System.Data.SqlClient
Public Class Ajout
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ObjDataRow As DataRow
Dim ObjCommandBuilder As SqlCommandBuilder
Dim ObjDataAdapter As SqlDataAdapter
Dim ObjDataSet As New DataSet()

ObjDataRow = ObjDataSet.Tables("Fournisseur").NewRow()

ObjDataRow("Code") = Me.TextCode.Text
ObjDataRow("Nom") = Me.TextNom.Text
ObjDataRow("Adresse") = Me.TextAdresse.Text
ObjDataRow("Ville") = Me.TextVille.Text

ObjDataSet.Tables("Fournisseur").Rows.Add(ObjDataRow)
'Pour modifier les valeurs changées dans le DataAdapter
ObjCommandBuilder = New SqlCommandBuilder(ObjDataAdapter)
'Mise à jour
ObjDataAdapter.Update(ObjDataSet, "Fournisseur")
'On vide le DataSet et on le 'recharge' de nouveau.
ObjDataSet.Clear()
ObjDataAdapter.Fill(ObjDataSet, "Fournisseur")

End Sub
End Class

wahou lle message d'erreur sans la ligne de code correspondante, tendu de régler ton problème !