exception oledbexception- Erreur de synthaxe dans l'instruction inser to

D'abord je vous informe que je programme sous VB.net 2008 Express et j'attaque une base de donnée Access 2007.

J'ai vérifié les champs de ma table "Etudiant". Il n'ya pas de mots clés access. Mais lorsque j'enregistre j'ai l'erreur suivante qui se presente:
Erreur de syntaxe ds l'instruction insert to au niveau du update.
dta.Update(dts, "Etudiants")

Je n'arrive pas à m'en sortir depuis 2 semaines.
Voici une partie du code Bouton Enregistrer:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 Private Sub BntEnrégistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BntEnrégistrer.Click
 
 
 
        'si un champ n'est pas rempli fin de procédure
        If Me.Nom.Text = "" Or _
           Me.Prenoms.Text = "" Or _
           Me.LieuNais.Text = "" Then
 
            MessageBox.Show("Vous devez remplir tous les champs Nom, Prénoms, Date de Naissance et Lieu de Naissance!", "Erreur...", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            Me.Nom.Focus()
 
            Exit Sub
 
        End If
 
        'crátion d'une nouvelle ligne avec les données des textbox
 
        Try
            dtr = dts.Tables("Etudiants").NewRow
 
            Dim Int As Integer
 
            dtr("Nom") = Me.Nom.Text
            dtr("prenom") = Me.Prenoms.Text
            dtr("Lieu_Naissance") = Me.LieuNais.Text
            dtr("Telephone_personnel") = Me.TelPersonnel.Text
            dtr("Telephone_professionnel") = Me.TelProfessionnel.Text
            dtr("Telephone_mobile") = Me.TelMobile.Text
            dtr("Page_Web") = Me.Mail.Text
            dtr("Numero_telecopie") = Me.Telecopie.Text
            dtr("Adresse_Etudiant") = Me.Adresse.Text
            dtr("Ville") = Me.Ville.Text
            dtr("Code_Postal") = Me.CP.Text
            dtr("Departement") = Me.Departement.Text
            dtr("Remarques") = Me.Remarque.Text
            dtr("IDEtudiant") = Me.IDEtudiant.Text
            dtr("contact_urgence") = Me.ContactUrgence.Text
            dtr("Telephone_du_contact_urgences1") = Me.TelUrgence1.Text
            dtr("Telephone_du_contact_urgences2") = Me.TelUrgence2.Text
            dtr("Relation_urgences") = Me.RelationUrgence.Text
            dtr("Nom_médecin") = Me.NomMedecin.Text
            dtr("Tel_medecin") = Me.TelMedecin.Text
            dtr("Allergies") = Me.Allergies.Text
            dtr("Medicaments") = Me.Medicaments.Text
            dtr("Classe_Etudiant") = Me.ComboBoxClasse.Text
            dtr("Niveau_Etudiant") = Me.ComboBoxNiveau.Text
            dtr("Pays_Région") = Me.ComboBoxPays.Text
            dtr("Specialite_Etudiant") = Me.ComboBoxSpecialite.Text
 
            If Integer.TryParse(Me.NumInscription.Text, Int) Then
                dtr("NumInscription") = Me.NumInscription.Text
            Else
                dtr("NumInscription") = 0
            End If
            If Integer.TryParse(Me.NumInscription.Text, Int) Then
                dtr("Heure_Inscription") = Me.Hinscription.Text
            Else
                dtr("Heure_Inscription") = 0
            End If
            If Integer.TryParse(Me.ComBoBoxEtab.Text, Int) Then
                dtr("Etablissements") = Me.ComBoBoxEtab.Text
            Else
                dtr("Etablissements") = 0
            End If
            If Integer.TryParse(Me.ComboBoxExo.Text, Int) Then
                dtr("NumExo") = Me.ComboBoxExo.Text
            Else
                dtr("NumExo") = 0
            End If
 
 
            'ajout de la ligne dans le DataSet
 
            dts.Tables("Etudiants").Rows.Add(dtr)
 
            'création et exécution du commandbuilder
            'pour mettre à jour le DataAdapter
            cmdb = New OleDbCommandBuilder(dta)
 
            'mise à jour des données du DataAdapter
            'à partir du commandbuilder
            dta.Update(dts, "Etudiants")
 
 
            MsgBox("Inscription effectuée!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
 
        'on vide le dataset pour le recréer avec 
        'les nouvelles données 
        dts.Clear()
        dta.Fill(dts, "Etudiants")
        dtt = dts.Tables("Etudiants")
 
        'mise à jour de la datagrid
        DataGridView1.DataSource = dtt
 
        'aller au début du fichier
 
        rownum = 0
 
       'affichage des données dans les texbox

Je tiens à préciser que ma table à un clé appelé IDEts qui est NumeroAuto.
si quelqu'un a déjà rencontré un problème de ce genre qu'il me vienne en aide svp