أين الخطأ في الكود

السلام عليكم

ارجو منكم مساعدتي في ايجاد الخطأ او الناقص في الكود الخاص بحذف سجل من الداتابيس.

الاول كان شغال ميه ميه هذا لما كنت اعمل حذف للعنصر في نفس الفورم الرئيسي.

الآن لما اضغط على بوتن الحذف يفتح لي فورم فرعي خاص بالحذف، يختار منه العنصر المراد حذفه .

بعد اتمام الحذف العنصر المختار يحذف والكومبوبوكس يتحدث ولكن لما ارجع الى الفورم الرئيسي اجد البيانات لسه موجوده واكتشفت ان التحديث لايتم في الداتابيس.

طيب كان شغال ويحدث الداتابيس لما كان على الفورم الرئيسي، وين المشكله؟؟

غير كده، لما احاول احذف السجلات بعضهم ينحذفو والبعض مايقبل الحذف وتطلع لي هذي المسج:

Concurrency violation: the DeleteCommand affected 0 of the expected 1 records

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
		If ComboBox6.SelectedValue = "" Then
			Err.Visible = True

		Else
			Err.Visible = False
			Dim text_box As New TextBox
			If MsgBox("هل أنت متأكد من حذف الصنف المختار؟", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
				Exit Sub
			End If
			'Try

			text_box.Text = ComboBox6.SelectedValue.ToString
			Dim SavInto As New OleDb.OleDbCommand
			Dim DataAdapter1 As New OleDb.OleDbDataAdapter(sql, con)
			SavInto.Connection = con
			SavInto.CommandType = CommandType.Text
			SavInto.CommandText = "DELETE FROM Type_T WHERE Type ='" & _
			Trim(text_box.Text) & "'"
			If con.State = ConnectionState.Closed Then
				con.Open()
			End If
			SavInto.ExecuteNonQuery()
			ds.Clear()
			da.Fill(ds, "Table1")

			Done.Visible = True

			sql = "SELECT * FROM Type_T ORDER BY Type "
			da = New OleDb.OleDbDataAdapter(sql, con)
			ds.Clear()
			da.Fill(ds, "Temp_table")

			' refresh combobox after addition 
			Me.ComboBox6.DataSource = ds.Tables("Temp_table")
			Me.ComboBox6.Refresh()
			Me.ComboBox6.DisplayMember = "Type"
			Me.ComboBox6.ValueMember = "Type"
			'Catch ex As Exception
			'MessageBox.Show(ex.Message)
			' End Try
			Me.Close()
			Main.Show()
		End If

End Sub

معتمد على الله ثم عليكم، أنا في امس الحاجة الى معرفة الخطأ وفي اسرع وقت ممكن