Bouton 'ajouter' cherches l'erreur mais ne la voit pas !!!

Bonjour tout le monde,

Je suis toujours sur mon programme de gestion de base de données access pour ceux qui suivent mes péripéties. Et comme toujours lorsque je viens ici, j'ai un problème.

Pour déroger à la règle cette fois-ci je ne vois pas d'où peut venir l'erreur. Voici mon bouton ajouter:
Donc si quelqu'un veut jouer au jeu des erreurs Il y en a au moins une!


(Pour infos: ce bouton se trouve dans une Form annexe appelée par la principale sur clic d'un bouton, elle gère une autre table différentes de celle gérée par la form principale. Et pour la form principale ce bouton ajouter fonctionne et est consrtuit de la même facon. Je vous met à la suite le bouton ajouter de la form principal (celui-là fonctionne))      

---

        ''''''''''Ajouter un enregistrement:''''''''''

        ObjetDataRowSorties = ObjetDataSetSorties.Tables("Sorties").NewRow()

        ObjetDataRowSorties("NuméroSérie") = Me.NuméroSérie.Text
        ObjetDataRowSorties("Client") = Me.Client1.Text
        ObjetDataRowSorties("Date") = Me.DateSortie.Text
        ObjetDataRowSorties("NuméroBonLivraison") = Me.NuméroBL.Text
     


        ObjetDataSetSorties.Tables("Sorties").Rows.Add(ObjetDataRowSorties)

        'Pour modifier les valeurs changées dans le DataAdapter

        ObjetCommandBuilderSorties = New OleDbCommandBuilder(ObjetDataAdapterSorties)

        'Mise à jour
        Try
            ObjetDataAdapterSorties.Update(ObjetDataSetSorties, "Sorties")
        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
        'On vide le DataSet et on le 'recharge' de nouveau.
        ObjetDataSetSorties.Clear()
        ObjetDataAdapterSorties.Fill(ObjetDataSetSorties, "Sorties")
        ObjetDataTableSorties = ObjetDataSetSorties.Tables("Sorties")


        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If RowNumber < 0 Then
            ObjetConnectionSorties.Close()
            Exit Function
        End If
        'Lors de l'ouverture de la BD, s'il yn'y a aucun enregistrement
        If RowNumber > ObjetDataTableSorties.Rows.Count - 1 Then
            ObjetConnectionSorties.Close()
            Exit Function
        End If
        'ObjetTable.Rows(Numéro de lignes).Item(Nom de colonne) donne le contenu d'un champ dans une case donnée
        Me.NuméroSérie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroSérie")
        Me.Client1.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Client")
        Me.DateSortie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Date")
        Me.NuméroBL.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroBonLivraison")

        'affichage des données dans le datagrid            
        DataGrid1.SetDataBinding(ObjetDataSetSorties, "Sorties")
        'Item peut avoir en paramètre le nom de la colonne ou son index
        Me.ObjetConnectionSorties.Close()
        Me.ObjetConnectionSorties.Open()
        ''''''''''Ajouter un enregistrement:''''''''''

        ObjetDataRowSorties = ObjetDataSetSorties.Tables("Sorties").NewRow()

        ObjetDataRowSorties("NuméroSérie") = Me.NuméroSérie.Text
        ObjetDataRowSorties("Client") = Me.Client1.Text
        ObjetDataRowSorties("Date") = Me.DateSortie.Text
        ObjetDataRowSorties("NuméroBonLivraison") = Me.NuméroBL.Text
     


        ObjetDataSetSorties.Tables("Sorties").Rows.Add(ObjetDataRowSorties)

        'Pour modifier les valeurs changées dans le DataAdapter

        ObjetCommandBuilderSorties = New OleDbCommandBuilder(ObjetDataAdapterSorties)

        'Mise à jour
        Try
            ObjetDataAdapterSorties.Update(ObjetDataSetSorties, "Sorties")
        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
        'On vide le DataSet et on le 'recharge' de nouveau.
        ObjetDataSetSorties.Clear()
        ObjetDataAdapterSorties.Fill(ObjetDataSetSorties, "Sorties")
        ObjetDataTableSorties = ObjetDataSetSorties.Tables("Sorties")


        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If RowNumber < 0 Then
            ObjetConnectionSorties.Close()
            Exit Function
        End If
        'Lors de l'ouverture de la BD, s'il yn'y a aucun enregistrement
        If RowNumber > ObjetDataTableSorties.Rows.Count - 1 Then
            ObjetConnectionSorties.Close()
            Exit Function
        End If
        'ObjetTable.Rows(Numéro de lignes).Item(Nom de colonne) donne le contenu d'un champ dans une case donnée
        Me.NuméroSérie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroSérie")
        Me.Client1.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Client")
        Me.DateSortie.Text = ObjetDataTableSorties.Rows(RowNumber).Item("Date")
        Me.NuméroBL.Text = ObjetDataTableSorties.Rows(RowNumber).Item("NuméroBonLivraison")

        'affichage des données dans le datagrid            
        DataGrid1.SetDataBinding(ObjetDataSetSorties, "Sorties")
        'Item peut avoir en paramètre le nom de la colonne ou son index

---

Et le bouton 'ajouter' de la form principale, celui-là fonctionne:

---

''''''''''Ajouter un enregistrement:''''''''''

        ObjetDataRow = ObjetDataSet.Tables("Client").NewRow()

        ObjetDataRow("Société") = Me.Société.Text
        ObjetDataRow("Adresse") = Me.Adresse.Text
        ObjetDataRow("CodePostal") = Me.CodePostal.Text
        ObjetDataRow("Ville") = Me.Ville.Text
        ObjetDataRow("Téléphone") = Me.Téléphone.Text
        ObjetDataRow("FAX") = Me.FAX.Text
        ObjetDataRow("Civilité") = Me.Civilité.Text
        ObjetDataRow("Contact") = Me.Contact.Text
        ObjetDataRow("Fonction") = Me.Fonction.Text
        ObjetDataRow("Portable") = Me.Portable.Text
        ObjetDataRow("Email") = Me.Email.Text


        ObjetDataSet.Tables("Client").Rows.Add(ObjetDataRow)

        'Pour modifier les valeurs changées dans le DataAdapter

        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)

        'Mise à jour
        Try
            ObjetDataAdapter.Update(ObjetDataSet, "Client")
        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
        'On vide le DataSet et on le 'recharge' de nouveau.
        ObjetDataSet.Clear()
        ObjetDataAdapter.Fill(ObjetDataSet, "Client")
        ObjetDataTable = ObjetDataSet.Tables("Client")


        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If RowNumber < 0 Then
            ObjetConnection.Close()
            Exit Function
        End If
        'Lors de l'ouverture de la BD, s'il yn'y a aucun enregistrement
        If RowNumber > ObjetDataTable.Rows.Count - 1 Then
            ObjetConnection.Close()
            Exit Function
        End If
        'ObjetTable.Rows(Numéro de lignes).Item(Nom de colonne) donne le contenu d'un champ dans une case donnée
        Me.Société.Text = ObjetDataTable.Rows(RowNumber).Item("Société").ToString
        Me.Adresse.Text = ObjetDataTable.Rows(RowNumber).Item("Adresse").ToString
        Me.CodePostal.Text = ObjetDataTable.Rows(RowNumber).Item("CodePostal").ToString
        Me.Ville.Text = ObjetDataTable.Rows(RowNumber).Item("Ville").ToString
        Me.Téléphone.Text = ObjetDataTable.Rows(RowNumber).Item("Téléphone").ToString
        Me.FAX.Text = ObjetDataTable.Rows(RowNumber).Item("FAX").ToString
        Me.Civilité.Text = ObjetDataTable.Rows(RowNumber).Item("Civilité").ToString
        Me.Contact.Text = ObjetDataTable.Rows(RowNumber).Item("Contact").ToString
        Me.Fonction.Text = ObjetDataTable.Rows(RowNumber).Item("Fonction").ToString
        Me.Portable.Text = ObjetDataTable.Rows(RowNumber).Item("Portable").ToString
        Me.Email.Text = ObjetDataTable.Rows(RowNumber).Item("Email").ToString

        'affichage des données dans le datagrid            
        DataGrid1.SetDataBinding(ObjetDataSet, "Client")
        'Item peut avoir en paramètre le nom de la colonne ou son index

---

---

Voilà si on peut m'aider à trouver l'erreur!

Le message qu'il m'annonce : "Erreur de Synthaxe dans l'instruction INSERT TO"

Mince j'ai mis deux fois de suite la partie du programme qui beug, donc regardez bien pour voir où cà s'arrête !!! lol

Thank you very much Dalida, I love Dalida, Dalida is the best singer in this world!