Set DBFunc = New clsDBFunctions
Set objAccess = CreateObject("Access.Application")

With DBFunc
.TableName = "TestTable"
    .DataBaseName = .GetLinkedDBName(.TableName)       'full DB path
    If .DataBaseName <> vbNullString Then    'will return 0 if no table
        Set .db = Nothing   'clear preset DB in clsDBFunctions
        Set .db = OpenDatabase(.DataBaseName, False, False)
    End If