[سؤال] كود حفظ الصورة وجده لكن لايعمل بالكامل

PHP كود :

Dim conn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "\Data.accdb" & ";Persist Security Info=True;Jet OLEDB:Database Password=123")

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Try

        Dim sql As String = _
            " INSERT INTO [Student] " & _
            " (  Student_Name,  Student_CPR,  Student_Birth,  Student_Join,  Student_Nation,  Student_Sex,  ​Student_D,  Student_Place,  Student_Address,  Student_Sick,  Student_Vairus,  Student_phon​e,  Student_Dad,  Student_mom,  Student_Angel,  Student_jobmom,  Student_jobdad,  Student_Fa​maly,  Student_Pic ) " & _
            " VALUES " & _
            " ( @Student_Name, @Student_CPR, @Student_Birth, @Student_Join, @Student_Nation, @Student_Sex, @​Student_D, @Student_Place, @Student_Address, @Student_Sick, @Student_Vairus, @Student_phon​e, @Student_Dad, @Student_mom, @Student_Angel, @Student_jobmom, @Student_jobdad, @Student_Fa​maly, @Student_Pic ) "

        Dim cmd As New OleDbCommand(sql, conn)
        cmd.Parameters.AddWithValue("@Student_Name", TextBox1.Text)
        cmd.Parameters.AddWithValue("@Student_CPR", TextBox10.Text)
        cmd.Parameters.AddWithValue("@Student_Birth", DateTimePicker1.Value.Date)
        cmd.Parameters.AddWithValue("@Student_Join", DateTimePicker2.Value.Date)
        cmd.Parameters.AddWithValue("@Student_Nation", ComboBox2.Text)
        cmd.Parameters.AddWithValue("@Student_Sex", ComboBox3.Text)
        cmd.Parameters.AddWithValue("@Student_D", ComboBox1.Text)
        cmd.Parameters.AddWithValue("@Student_Place", ComboBox4.Text)
        cmd.Parameters.AddWithValue("@Student_Address", TextBox2.Text)
        cmd.Parameters.AddWithValue("@Student_Sick", ComboBox5.Text)
        cmd.Parameters.AddWithValue("@Student_Vairus", TextBox7.Text)
        cmd.Parameters.AddWithValue("@Student_phon", TextBox3.Text)
        cmd.Parameters.AddWithValue("@Student_Dad", TextBox4.Text)
        cmd.Parameters.AddWithValue("@Student_mom", TextBox5.Text)
        cmd.Parameters.AddWithValue("@Student_Angel", TextBox6.Text)
        cmd.Parameters.AddWithValue("@Student_jobmom", TextBox8.Text)
        cmd.Parameters.AddWithValue("@Student_jobdad", TextBox9.Text)
        cmd.Parameters.AddWithValue("@Student_Fa​maly", ComboBox6.Text)
        Using ms As New IO.MemoryStream
            Me.PictureBox1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            cmd.Parameters.AddWithValue("@Student_Pic", ms.ToArray())
        End Using

        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()

        MessageBox.Show("تمت الإضافة بنجاح", "My Systm", MessageBoxButtons.OK, MessageBoxIcon.Information)

    Catch ex As Exception
        MessageBox.Show(ex.Message, "خطأ في الإضافة", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub 