ADODB.Error

dim conn as adodb.connection
set conn = new adodb.connection

conn.open "provider=Microsoft.ACE.OLEDB.16.0;…"

conn.execute(…)

…

dim e as adodb.error
for each e in conn.errors
        debug.print("   " & e.number     )
        debug.print("   " & e.description)
        debug.print("   " & e.source     ) ' for example: Microsoft Access Database Engine
        debug.print("   "                )
next e