Error al intentar actualizar o borrar registro en VB 6

Hola,
De antemano agradezco tu colaboración.
Tengo una app que accede a una bd en Access 97, y me presenta el siguiente problema:
Cuando intento actualizar o borrar un registro(fila) que veo en un DataGrid
El código que uso para borrar es el siguiente
Private Sub cmdEliminar_Click()
    If Adodc2.Recordset.RecordCount > 0 Then 'EN EL ADO2 TENGO LA CONSULTA UQE MUESTRO EN EL GRID
        nroIdReg = 0
        If MsgBox("¿Está Seguro que Desea Borrar el Registro Seleccionado?", vbYesNo) = vbYes Then
            nroIdReg = Adodc2.Recordset(0)
            Adodc3.RecordSource = "select * from ServiciosPrestados where Id = " + CStr(nroIdReg) 'HAGO LA BUSQUEDA DEL REGISTRO ESPECÍFICO QUE DESEO BORRAR
            Adodc3.Refresh
            If Adodc3.Recordset.RecordCount > 0 Then
                 Adodc3.Recordset.Delete
            End If
            Adodc3.Recordset.Update
            Call BorrarCampos
            MsgBox "Registro Borrado", vbInformation
        End If
    Else
        MsgBox "No hay registros para borrar.", vbInformation
    End If
End Sub
De igual manera me sucede cuando intento actualizar un registro.
¿Cómo puedo solucionar ese error?
Muchas Gracias