Asi
Código:
On Error Goto Nombre-del-error
'Aqui va tu codigo
Me.ActiveForm.Adodc1.Recordset.CancelUpdate
Exit sub
Nombre-del-error:
Msgbox "Se produjo un error y no se por que, quizas sea un boludo y no puedo encontrarlo"
El error esta raro nunca me pasado?