ارجوا المساعدة فى الداتا جريد

اولا السلام عليكم ورحمة الله وبركاتة

أخواتى فى الله لقد قمت بعمل قاعدة بيانات عبارة عن جدول واحد ويتم عرض الجدول فى داتا جريد يتم أدخال البيانات من الداتا جريد والحفظ

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

وهنا بدأت المشكلة عند تحديد بيان معين ثم اضغط على زر المسح لا يتم مسحة بينما يتم مسح بيان اخر بمعنى لو فرضا قمت بتحديد بيان رقم 2 من اجل مسحة يتم مسح بيان رقم 1 لا اعلم كيف احل هذة المشكلة ارجوا المساعدة وهذا كود زر المسح

        Try
            Dim mymassage As DialogResult = MessageBox.Show("هل انت متأكد من مسح الملف", "مسح ملف", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If mymassage = DialogResult.Yes Then
                DataGrid1.BindingContext(DataSet11, "per").RemoveAt(DataGrid1.BindingContext(DataSet11, "per").Position)
                DataGrid1.BindingContext(DataSet11, "per").Position += 0
            End If

            DataGrid1.BindingContext(DataSet11, "per").EndCurrentEdit()

            Me.OleDbDataAdapter1.Update(DataSet11)
            DataSet11.AcceptChanges()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Me.OleDbConnection1.Close()
        End Try