[محمد اسماعيل]

السلام عليكم

طلبت اكثر من مرة تعديل كود الحذف ولم يقم احد بالنظر بطلبي واكمالة الكود يتوقف علية برنامجي

حاولت كثير ولكن الكود يحذف ويعطي خطا لا ادري ما المشكلة 

الكود الذي يعطي خطاء

كود :

Try
           If DataGridView1.RowCount <= 0 Then
               Exit Sub
           End If
           con.Open()
           DataGridView1.ClearSelection()
           Dim a As Integer
           DataGridView1.Rows(DataGridView1.CurrentRow.Index).Selected = True
           a = DataGridView1.Rows.GetLastRow(DataGridViewElementStates.Selected).ToString + 1
           DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
           Validate()
           DataGridView1.Refresh()
           DataAdapter1.Update(DataSet1, "tb1,tb2")
           DataSet1.AcceptChanges()
           conn()
           count()
           con.Close()
           MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64 + 524288, "حذف سجل من كلا الجدولين")
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

ارفقت المشروع واريد التعديل علي كود الحذف