[بدري]

تفضل التعديل

Dim Cmd As New OleDbCommand("insert into Degrees(id,[اللغة العربية]) Values(@id,@a)", con)

Cmd.Parameters.AddWithValue("@id", Val(Label1.Text))
Cmd.Parameters.AddWithValue("@a", Val(TextBox1.Text))
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)



لا تستخدم الارقام كمسميات مثل 1@
استخدم val مع الحقول التي تعرف انها رقم فقط

---

لا تسخدم try اثناء في فتره تجربه المشروع