[VB.NET] Code Ajouter Vb dans Access

bonjour;

je suis débutant en Vb.Net et je voulais avoir votre aide pour corriger ce code afin que je me puisse enregistrer mes données dans une base Access via un interface vb.

voici le 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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        dataFile = "C:\Users\Logisticien\Desktop\Livraison Fournisseurs.accdb" ' Change it to your Access Database location
        connString = provider & dataFile
        myConnection.ConnectionString = connString
    End Sub
 
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
 
 
        myConnection.Open()
        Dim cmd As OleDb.OleDbCommand
        Dim sql_ajouter As String
        If myConnection.State = ConnectionState.Open Then
            sql_ajouter = "insert into Reception(BL,OF,ArticleExterne,ArticleInterne,CFR,Qtité) values('" & txtRech.Text & "','" & txtOrdreFab.Text & "','" & txtArticleExterne.Text & "','" & txt_ArticleInterne.Text & "','" & CFR.Text & "','" & txtQuantite.Text & "');"
            cmd = New OleDbCommand(sql_ajouter, myConnection)
            cmd.Parameters.AddWithValue("BL", txtRech.Text)
            cmd.Parameters.AddWithValue("OF", txtOrdreFab.Text)
            cmd.Parameters.AddWithValue("ArticleExterne", txtArticleExterne.Text)
            cmd.Parameters.AddWithValue("ArticleInterne", txt_ArticleInterne.Text)
            cmd.Parameters.AddWithValue("CFR", CFR.Text)
            cmd.Parameters.AddWithValue("Qtite", txtQuantite.Text)
            cmd.ExecuteReader()
 
 
 
            MsgBox("Ajouté avec succès", MsgBoxStyle.Information, "Ajout")
 
        Else
            MsgBox("Erreur d'ajout", MsgBoxStyle.Exclamation, "Erreur")
        End If
        txtRech.Clear()
        txtOrdreFab.Clear()
        txtArticleExterne.Clear()
        txt_ArticleInterne.Clear()
        CFR.Clear()
        txtQuantite.Clear()
        txtRech.Focus()
        myConnection.Close()
    End Sub

Base Access : Livraison Fournisseurs
Table Reception

Le Message d'erreur ci dessous

Pièce jointe 329403

Merci d'avance.
Log