Here's the relevant code:

Dim IllustrationWB As Workbook
Dim InputSheet As Worksheet
Dim BDCodesWB As Workbook
Dim BDSheets As Worksheet
Dim BDCodesPathFile As String
Dim lngLastRow As Long
Dim lngLastRowCodes As Long
Dim strBDCode As String
Dim strBDCodes As String
Dim objAccess As Access.Application

Sub ImportBDCodes()
'start access and run code which exports query results
On Error GoTo errAccessFail
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase
"\\Server03\shared\Agreements\AgreementInventory.m db", True

For some reason this is now causing an error in Access when it has been
working before for months. What I'd like to get is the Access error number
and description. How can I do that?