NullReferenceException

Bonjour,
Lorsque j'étais en train de réaliser ma petite application en vb.net,une exception est déclenché " NullReferenceException".
SVP,Pouvez-vous m'aider à résoudre ce problème?

==>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