Los errores generados por ADO los manejas con las instrucciones habiltuales de control de error de Vbasic,
si queres obtener el numero de error >> msgBox err.number
si queres un string con la descripcion >> msgBox err.description
En tu procedimiento tenes q agregar la sentencia de control de error
como por ejemplo:
private Sub Mirutina()
on Error goto MiEtiqueta ' al principio del Sub o Func
'
' aca va el codigo de tu aplicación
'
exit Sub
miEtiqueta: ' al final del Sub
msgBox err.number & " " & err.description
exit Sub
espero te sirva !!!!!
(Guille) form. Arg.