Cancelar usuario

[Brujitaes]

Hola buenas noches tengo un problema al cancelar un usuario. En la linea 24 me sale el error 3059 que dice que el operación cancelada por el usuario. Que puedo hacer para que pueda cancelar el usuario. Gracias por intentarme ayudar.

1 Private Sub MenúSecundario_DblClick(Cancel As Integer)
2 Dim db As Database
3 Dim DATOS As Recordset, datos1 As Recordset
4 Dim cuantos As Long

5 Set db = CurrentDb()
6 mpsel = Me![MPSelección]
7 menúsec = Me![MenúSecundario]
8 Aejec = "SELECT DISTINCTROW Menús.Macro, Menús.fec_ult, Menús.usu, Menús.cta FROM Menús WHERE ((Menús.Padre=" & mpsel & ") AND (Menús.Orden=" & menúsec & "));"
9 Set DATOS = db.OpenRecordset(Aejec)
10 Aejec = "SELECT DISTINCTROW Menu_eventos.* FROM Menu_eventos;"
11 Set datos1 = db.OpenRecordset(Aejec)
12 cuantos = DATOS!cta
13 DATOS.Edit
14 DATOS!usu = CurrentUser()
15 DATOS!cta = cuantos + 1
16 DATOS!fec_ult = Date
17 DATOS.Update
18 datos1.AddNew
19 datos1!padre = mpsel
20 datos1!Orden = menúsec
21 datos1!usu = CurrentUser()
22 datos1!Fec = Date
23 datos1.Update
24 DoCmd.RunMacro DATOS!Macro
25 DATOS.Close
26 datos1.Close
27 End Sub