Visual Basic - Interceptar eventos del recordset

Pues tengo este texto :
Private Sub adodc2_WillChangeRecord( _
ByVal adReason As ADODB.EventReasonEnum, _
ByVal cRecords As Long, _
adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)

Dim Botones As Integer
Dim msg As String
BotonesIcono = vbYesNo + vbQuestion
' Si la acción es borrar el registro
If adReason = adRsnDelete Then
msg = "¿Está Vd seguro de que quiere eliminar" & vbCrLf & _
Adodc2.Recordset.Fields(0) & "?"
If MsgBox(msg, BotonesIcono, "Borrar registro?") <> vbYes Then
adStatus = adStatusCancel ' Cancelar la operación
Exit Sub
End If
para controlar el evento de borrado de registro antes de que se produzcan en mi control ADO, que está configurado con adOpenDynamic y bloqueo optimista, pero cuando se dispone a compilar obtengo el siguiente error :
Error de compilación
La declaración del procedimiento no coincide con la descripción del evento o el procedimiento que tiene el mismo nombre.
End Sub