[الوليد ☺]

السلام عليكم ورحمة الله

شوف هذه الطريقة موجودة بالمنتدى
وهي أكثر ترتيباً وتتميز بسهولة مراجعة الكود وأضفت لك طريقة تحويل بيانات الصورة
ملاحظة يجب ترتيب Parameters بنفس الترتيب في جملة الاستعلام حسب ما ذكره الأعضاء
إضافة كلمة Date بعد Value لأداة التاريخ

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