[mazentq]

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير 
قمت بتصميم برنامج وربطه بقاعدة بيانات من نوع اكسس
وهناك مشكلة عندما اقوم باضافة بيانات وعمل حفظ في قاعدة البيانات تظهر هذه الرسالة التي في الصورة


مع ان الاكواد المستخدمة قمت باستخدمها في برنامج اخر من قبل وهي تعمل بشكل جيد ولكن لا اعرف لماذا عند هذا البرنامج 


وهذه هي الاكواد

كود :

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

وشكرا