مشكلة فى كود الحفظ ... رجاء المساعدة

بسم الله الرحمن الرحيم

السلام عليكم أعضاء ومشرفى هذا الصرح الرائع

الذى تعملت منه الكثير

انتقلت مؤخرا إلى vb.net بعد الخروج من vb6 بصعوبة لطول العشرة :D

وبدأت فى أولى برامجى

ولكن للأسف البداية غير موفقة حيث واجهتنى المشكلة التالية

أعمل على زر الحفظ

حيث يقوم بحفظ البيانات بالإضافة صورة فى قاعدة البيانات

عند ملئ الـ TextBox بالبيانات واختيار الصورة وعند الضغط على زر الحفظ

كما فى الصورة

الكود المستخدم فى الحفظ

BB = My.Computer.FileSystem.ReadAllBytes(OP.FileName)


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

        Dim SavCom As New OleDbCommand


        With SavCom
            .Connection = Cn
            .CommandType = CommandType.Text
            .CommandText = "insert into gen (num, kind,source,tex,notes ,Photo) values(?, ?, ?, ?, ?,?)"
            .Parameters.Clear()
            .Parameters.AddWithValue("@num", OleDbType.VarChar).Value = TextBox1.Text.Trim
            .Parameters.AddWithValue("@kind", OleDbType.VarChar).Value = TextBox2.Text.Trim
            .Parameters.AddWithValue("@source", OleDbType.VarChar).Value = TextBox3.Text.Trim
            .Parameters.AddWithValue("@tex", OleDbType.VarChar).Value = Val(Val(TextBox3.Text.Trim) - Val(TextBox2.Text.Trim))
            .Parameters.AddWithValue("@notes", OleDbType.VarChar).Value = Val(Val(TextBox3.Text.Trim) - Val(TextBox2.Text.Trim))
            .Parameters.AddWithValue("@Photo", OleDbType.Binary).Value = BB
        End With

        Cn.Open()
        SavCom.ExecuteNonQuery()
        Cn.Close()
        '========================================================================
        Form1_Load(Nothing, Nothing)
        MsgBox("One Record  added successfully", MsgBoxStyle.Information, "Save")
        ClearTxt()

        NewBtn.Enabled = True

وهذا هو الكود الموجود فى الـ Form Load

If Cn.State = ConnectionState.Open Then Cn.Close()
        BrowseBtn.Enabled = False
        NewBtn.Enabled = True
        SaveBtn.Enabled = False

        PictureBox3.Visible = False


        '=====================================================
        DS.Clear()
        Dim DP As New OleDbDataAdapter("Select * from gen", Cn)
        DP.Fill(DS, "gen")
        '======================================================
        If DS.Tables("gen").Rows.Count <> 0 Then

            IDLb.DataBindings.Add("Text", DS, "gen.ID", True, 1)
            PictureBox2.DataBindings.Add("Image", DS, "gen.Photo", True)
            TextBox1.DataBindings.Add("Text", DS, "gen.num", True, 1)
            TextBox2.DataBindings.Add("Text", DS, "gen.kind", True, 1)
            TextBox3.DataBindings.Add("Text", DS, "gen.source", True, 1)
            TextBox4.DataBindings.Add("Text", DS, "gen.tex", True, 1)
            TextBox5.DataBindings.Add("Text", DS, "gen.notes", True, 1)

        End If

الشكر مقدماً لكل من يتفضل علىّ بالحل الصحيح أو مجرد المساعدة