[سؤال] مشكلة في اتصال قاعدة البيانات اكسس

كود :
Imports System.Data.OleDb

Imports System.Data

Imports System.Globalization

Imports System.IO

Imports System.Drawing.Image

Public Class UserControl2

    Dim con As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\gastec.mdb;user id=admin;jet oledb:database password=343282")



    Private Sub UserControl2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Guna.UI.Lib.GraphicsHelper.DrawLineShadow(Me, Color.Black, 50, 20, Guna.UI.WinForms.VerHorAlign.VerticalLeft)



    End Sub



    Private Sub usr_TextChanged(sender As Object, e As EventArgs)



    End Sub



    Private Sub GunaGradientButton3_Click(sender As Object, e As EventArgs) Handles GunaGradientButton3.Click

        OpenFileDialog1.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"

        'Dim OpenFileDialog1 As New OpenFileDialog

        With OpenFileDialog1

            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then

                MsgBox("image is not choised")

                Return

            Else

                photoadd.Image = Image.FromFile(OpenFileDialog1.FileName)

            End If

        End With

    End Sub



    Private Sub GunaGradientButton1_Click(sender As Object, e As EventArgs) Handles GunaGradientButton1.Click

        If (String.IsNullOrEmpty(id.Text)) Then

            MessageBox.Show("يجب ادخال الاسم اولا قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Return

        End If

        '==============================================================================================================



        Try



            Dim cmd As New OleDbCommand("insert into newcust ([NationalID],[pName],[Address],[Phone],[City],[CarNumber],[carModel],[carChassis],[MotorNumber],[Payment],[TotalPrice],[nDate]) values(@id,@gname,@address,@phone,@city,@carnum,@model,@chassis,@motornu,@pay,@cash,@gdate,@photoadd)", con)

            cmd.Parameters.AddWithValue("@NationalID", id.Text)

            cmd.Parameters.AddWithValue("@pName", gname.Text)

            cmd.Parameters.AddWithValue("@Address", address.Text)

            cmd.Parameters.AddWithValue("@Phone", phone.Text)

            cmd.Parameters.AddWithValue("@City", city.Text)

            cmd.Parameters.AddWithValue("@CarNumber", carnum.Text)

            cmd.Parameters.AddWithValue("@carModel", model.Text)

            cmd.Parameters.AddWithValue("@carChassis", chassis.Text)

            cmd.Parameters.AddWithValue("@MotorNumber", motornu.Text)

            cmd.Parameters.AddWithValue("@Payment", pay.Text)

            cmd.Parameters.AddWithValue("@TotalPrice", cash.Text)

            cmd.Parameters.AddWithValue("@nDate", gdate.Text)



            Dim ms = New IO.MemoryStream()

            photoadd.Image.Save(ms, photoadd.Image.RawFormat)

            Dim bytes = ms.ToArray()

            cmd.Parameters.AddWithValue("@Photo", bytes)





            'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال

            con.Open()

            cmd.ExecuteNonQuery()

            con.Close()



            'اظهار رساله للمستخدم تبين له نجاح اضافته واغلاق الاتصال واغلاق الفورم بتاع الاضافه والذهاب الى الفورم الرئيسى

            MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة")



            id.Text = ""

            gname.Text = ""

            address.Text = ""

            phone.Text = ""

            city.Text = ""

            carnum.Text = ""

            model.Text = ""

            chassis.Text = ""

            motornu.Text = ""

            pay.SelectedIndex = -1

            cash.Text = ""

            gdate.Text = Date.Today

            photoadd.Text = Nothing





        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

End Class