[أبو خالد الشكري]

مرحبا بك أخي العزيز ...

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

على كل حال ، أنا عندي ملاحظة فقط عل اسم الجدول ( Add ) فهذه الكلمة محجوزة للفيجوال ستوديو

وقد تعمل لك مشاكل في بناء جمل استعلام SQL
وأنصحك بتغيير اسم الجدول إلى أي اسم آخر ، مثلا (  MyAdd ) أو اسم آخر تراه مناسبا !

أما بخصوص كود إضافة طالب ، فأرجو أن يعمل الكود التالي في مشروعك ولكن يجب تغيير أسماء المتغيرات (اسم الطالب ، ورقمه) حسب أسماء المتغيرات التي في مشروعك !
ستجد في الكود الذي بالأسفل المتغيرات التالية :
اسم الجدول : MyAdd    واسم الطالب : add_name   ورقم الطالب : add_id
وبالتوفيق إن شاء الله .

كود :

'ضع السطر التالي في التصريحات العامة
Imports System.Data.OleDb

Dim CmdInsert As New OleDbCommand

With CmdInsert
.Connection = Con
.CommandType = CommandType.Text

.CommandText = " Insert Into MyAdd (add_name,add_id) values ( @add_name, @add_id ) "

.Parameters.Clear()

.Parameters.AddWithValue("@add_name", OleDbType.VarChar).Value = TextBox1.Text
.Parameters.AddWithValue("@add_id", OleDbType.VarChar).Value = TextBox2.Text

End With

If Con.State = 1 Then Con.Close()
Con.Open()
CmdInsert.ExecuteNonQuery()
Con.Close()

MsgBox("تم إضافة البيانات بنجاح", MsgBoxStyle.Information, "إضافة")

CmdInsert = Nothing

---