پاک کردن یک ردیف در گرید

سلام
من از فلکس گرید 8 استفاده میکنم
میخوام یک ردیف رو حذف کنم ولی نمی دونم چرا نمیشه یعنی میشه ولی 2 تا حذف پشت سر هم که میکنم ارور میده بعضی وقتا هم ظاهرا پاک میشه ولی وقتی یک بار از فرم خاج میشم و دوباره برمیگردم میبینم حذف نشده.
وقتی هم ارور میده به خط زیر گیر میده

کد:

---

DataEnvironment1.Recordsets(a).Delete

---

این هم کد حذف

کد:

---

Dim a As String
Dim n As VbMsgBoxResult
Dim w As VbMsgBoxResult
a = VSFlexGrid1.DataMember
n = MsgBox("آيا مي خواهيد رکورد جاري حذف شود", vbInformation + vbYesNo + vbDefaultButton2, "Message!")
If n = vbYes Then
If VSFlexGrid1.Row <= 0 Then
    MsgBox "رکوردي براي حذف وجود ندارد", vbInformation + vbOKOnly, "Message!"
Else
  DataEnvironment1.Recordsets(a).Delete
End If
End If
If DataEnvironment1.rsCommand1.RecordCount = 0 Then
MsgBox "رکوردي براي حذف وجود ندارد", vbInformation + vbOKOnly, "Message!"
Else
Set VSFlexGrid1.DataSource = DataEnvironment1
    VSFlexGrid1.DataMember = "Command1"

---

اگه دوستان با کد دیگه ای کار میکنن لطفا راهنمایی کنن
فقط یخورده خیلی عجله دارم
ممنون