ajouter les donnees de mes textbox dans la bd access

Bonsoir à tous...
comme vous pouvez le constater je suis dans mes débuts avec le visual Basic.net
j'ai crée un petit programme pour gérer une équipe sauf que avec mon bouton ajouter qui n'est autre que enregistrer dans le programme c'est à dire saisir les données dans les textbox et les renvoyer dans ma base de donnée hors le constat que j'ai fais avec les variables text ça marche bien par contre avec les variables numériques ça plante j'ai même essaiyé de convertir mais il m'affiche un message d'erreur

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub btnenregis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenregis.Click
 
        'si un champ n'est pas rempli fin de procedure
 
        If Me.txtnationalite.Text = "" Or _
           Me.cmbdate.Text = "" Or _
            Me.txtnbrjoueur.Text = "" Then
 
            MessageBox.Show("Vous devez obligatoirement remplir vos champs :")
 
            Me.txtnationalite.Focus()
 
 
            Exit Sub
 
        End If
 
        'creation d'une nouvelle ligne avec les donnees de textbox
        dtr = dts.Tables("equipe").NewRow
 
        dtr("natio") = Me.txtnationalite.Text
        dtr("date") = Me.cmbdate.Text
        dtr("nbre_joueur") = Me.txtnbrjoueur.Text
 
 
        'ajout de la ligne dans le dataset
        dts.Tables("equipe").Rows.Add(dtr)
 
        'creation et execution de commanBuilder pour mettre à jour le dataadapter
        cmdb = New OleDb.OleDbCommandBuilder(dta)
        'mise à jour du dataadapter à partir des donnees de commandBuilder
        dta.Update(dts, "equipe")  //c'est ici qu'il plante le message c'est erreur dans l'instruction insert into
 
        dts.Clear()
        dta.Fill(dts, "equipe")
        dtt = dts.Tables("equipe")
 
        matable = dts.Tables("equipe")
        dtgridequipe.DataSource = matable
 
        'aller au debut du fichier
        rownum = 0
 
        'afficher les donnes dans les textbox
 
        Me.txtcode.Text = dtt.Rows(rownum).Item("code_equip")
        Me.txtnationalite.Text = dtt.Rows(rownum).Item("natio")
        Me.cmbdate.Value = dtt.Rows(rownum).Item("date")
        Me.txtnbrjoueur.Text = dtt.Rows(rownum).Item("nbre_joueur")
 
 
        btnpremier.Enabled = True
        btnprecedent.Enabled = True
        btnsuivant.Enabled = True
        btndernier.Enabled = True
 
        btnmodifier.Enabled = True
        btnsupprimer.Enabled = True
        btnajouter.Enabled = True
        btnenregis.Enabled = False
 
        btnajouter.Text = "Ajouter"

merci