[Débutant] Erreur de Synthase OleDbAdapter

Bonsoir
Je suis novice en matière de développement et je souhaite créer une base de données avec VB.net.
Actuellement je développe sous VB 2008.
J'ai suivi le cours VB.net proposé sur le site pour la création et l'update d'une BD (http://plasserre.developpez.com/cour...bases-donnees2) mais comparé au code mis en exemple sur le tuto j'ai un message d'erreur de synthaxe :
Erreur de syntaxe dans l'instruction INSERT INTO sur la ligne de code "ObjetDataAdapter.Update(ObjetDataSet, "Table1")"
Après plusieurs recherches sur d'autres sites je trouve des erreurs similaires mais spécifique au code de chacun...
Est-ce que quelqu'un pourrait m'aiguiller ou me venir en aide SVP???
Je vous en remercie beaucoup!!!!

Pour plus d'info voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Imports System.Data
Imports System.Data.OleDb
 
 
Public Class Datasheet
 
    Private ObjetConnection As OleDbConnection
    Private ObjetCommand As OleDbCommand
    Private ObjetDataAdapter As OleDbDataAdapter
    Private ObjetDataSet As New DataSet
    Private strSql As String
    Private ObjetDataTable As DataTable
    Private strConn As String
    Private ObjetCommandBuilder As OleDbCommandBuilder
 
    Private Sub DataGridView1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\LoginDB.Accdb;"
            strSql = "SELECT Table1.* FROM Table1"
            ObjetConnection = New OleDbConnection()
            ObjetConnection.ConnectionString = strConn
 
            ObjetConnection.Open()
 
            ObjetCommand = New OleDbCommand(strSql)
            ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
            ObjetCommand.Connection() = ObjetConnection
            ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
            ObjetDataAdapter.Fill(ObjetDataSet, "Table1")
            ObjetDataTable = ObjetDataSet.Tables("Table1")
            DataGridView1.DataSource = ObjetDataTable
 
 
        Catch ex As Exception
            MsgBox(ex.Message(), MsgBoxStyle.Critical, "Erreur")
        End Try
    End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ObjetDataAdapter.Update(ObjetDataSet, "Table1")
    End Sub