Visual Basic - Ayuda con MHSflexgrid

Que tal, tengo un problema a ver si me pueden ayudar, quiero eliminar un registro pero para eso primero entro a un formulario para lña busqueda y de ahi al darle doble click lo envio a otro formulario y desde este segudno formulario es donde quiero eliminar esa informacion pero no puedo me marca un error que dice " La operacion en varios pasos genero errores. compruebe los valores de estado" el codigo que estoy ocupando es el siguiente:

Case 4 'ELIMINAR
Dim r As Integer
On Error GoTo rutinadeerror
r = MsgBox("¿Desea Borrar el Registro?", vbYesNo, "ATENCION")
If r = vbNo Then Exit Sub
If r = vbYes Then
AdoEnlace.Recordset.Delete
AdoEnlace.Recordset.MoveNext
If AdoEnlace.Recordset.EOF Then
AdoEnlace.Recordset.MoveLast
End If
End If
Exit Sub
AdoEnlace.Recordset.Update
AdoEnlace.Refresh
rutinadeerror:
r = MsgBox(Error, vbonly, "se ha producido un error:")
AdoEnlace.Recordset.CancelUpdate
AdoEnlace.Refresh

De atemano Gracias por la ayuda