Public Function TableCheck_ADOX(ByVal TableName As String) As Boolean
Dim objCat As Object 'ADOX.Catalog

On Error GoTo HandleErrors

Set objCat = CreateObject("ADOX.Catalog")
    If objCat Is Nothing Then Exit Function
objCat.ActiveConnection = CurrentProject.Connection

    With objCat.Tables.Item(TableName)
        If .Type = "LINK" Then
            TableCheck_ADOX = (Len(Dir$("")) > 0)
        End If
    End With
ExitHere:
    Set objCat = Nothing
    Exit Function
HandleErrors:
    Select Case Err.Number
        Case 3265 'Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру.
            'нет таблицы такой
            Resume ExitHere
        Case Else
            Debug.Print Err.Number; ; Err.Description
            Resume ExitHere
    End Select
End Function

Sub test()
'Debug.Print TableCheck_ADOX("tbl1")
Debug.Print TableCheck_ADOX("tb2")
End Sub

Public Function TableCheck_ADOX(ByVal TableName As String) As Boolean
Dim objCat As Object 'ADOX.Catalog

On Error GoTo HandleErrors

Set objCat = CreateObject("ADOX.Catalog")
    If objCat Is Nothing Then Exit Function
objCat.ActiveConnection = CurrentProject.Connection

    With objCat.Tables.Item(TableName)
        If .Type = "LINK" Then
            TableCheck_ADOX = (Len(Dir$(.Properties("Jet OLEDB:Link Datasource").Value)) > 0)
        End If
    End With
ExitHere:
    Set objCat = Nothing
    Exit Function
HandleErrors:
    Select Case Err.Number
        Case 3265 'Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру.
            'нет таблицы такой
            Resume ExitHere
        Case Else
            Debug.Print Err.Number; ; Err.Description
            Resume ExitHere
    End Select
End Function