عندي مشكله في تحديث قاعدة البيانات الاصليه

	

	'لتحديث قاعدة البيانات الاصلية

		Dim MyDataSet_Changes As New DataSet
		Dim MyDataSet_Upload As New DataSet


		Try
			Dim MyAdapter As New OleDbDataAdapter(SQL, MyCon)
			Dim MyCmdB As New OleDbCommandBuilder(MyAdapter)
			Me.BindingContext(MyDataSet, "Table").EndCurrentEdit()
			If MyDataSet.HasChanges Then
				MyDataSet_Changes = MyDataSet.GetChanges
				MyDataSet_Upload = MyDataSet_Changes.GetChanges(DataRowState.Modified)
				If (Not (MyDataSet_Upload) Is Nothing) Then MyAdapter.Update(MyDataSet_Upload.Tables(0))
				MyDataSet_Upload = MyDataSet_Changes.GetChanges(DataRowState.Added)
				If (Not (MyDataSet_Upload) Is Nothing) Then MyAdapter.Update(MyDataSet_Upload.Tables(0))
				MyDataSet_Upload = MyDataSet_Changes.GetChanges(DataRowState.Deleted)
				If (Not (MyDataSet_Upload) Is Nothing) Then MyAdapter.Update(MyDataSet_Upload.Tables(0))
				MyDataSet.AcceptChanges()
			End If

		Catch ex As OleDb.OleDbException

			MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.MsgBoxRight Or MsgBoxStyle.MsgBoxRtlReading, "خطاء في جلب البيانات")

		End Try

		MyDataSet_Changes.Dispose()

لمن اقوم باضافة بيانات جديد الى ال DataSet واطبق هذا الكود يقوم بتحديث البيانا في قاعدة البيانات الاصليه مضبوط بس المشكله في اني

لمن اقوم بجلب المعلومات اللي اضفتا سابقا واقوم بالتعديل عليها وبعدين اطبق عليها هذا الكود يعطيني هذا الخطاء