[sads]

أخي هذا الكود أستخدمه لحفظ البيانات

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

        Cmd.Parameters.Add(New OleDbParameter("@id", OleDbType.Integer)).Value = Label1.Text

        Cmd.Parameters.Add(New OleDbParameter("@1", OleDbType.VarWChar)).Value = Val(TextBox1.Text)

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Cmd.ExecuteNonQuery()

        con.Close()

        MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub