private sub msgerror ()
dim strerror as string 'almacena el tipo de error
dim interror as integer ' almecena el numero de error
on error goto error
{codigo}
error:
strerror= err.descripcion
interror= err.number
{codigo para almacenar datos en bd}
end sub