Error while using recordsets to delete records

[enigma1810]

I am using the following code to delete a record in vb:

"If rspmps2("pmpidno").Value = gvr1.Cells("pmpidno").Value Then
rspmps2.Delete()
rspmps2.UpdateBatch()"

where rspmps2 is a ADODB record set and gvr1 is a grid view row. but I keep getting the following error message:

"Row handle referred to a deleted row or a row marked for deletion."

Please can somebody assist me in this.