.ParentCatalog = adoxCat

.Properties("Jet OLEDB:Link Datasource").Value = "[ODBC;Driver=SQL Server;Server=server;APP=Microsoft Office;UID=UserName;PWD=абырвалг; DataBase=base_Name].[dbo].[tablename]"

.ParentCatalog = adoxCat

Dim adoxTbl As New ADOX.Table

Public Sub ADOXCreateLinkTable(strFileName As String, _
                                strTblName As String, _
                                Optional strLinkTblName As String = "")
'создание связанной таблицы MS ACCESS
'strFileName - путь к БД ACCESS, в которой находится таблица
'strTblName - имя таблицы в исходной БД
'strLinkTblName - имя, под которым будет создана связанная таблица
'если strLinkTblName опущено, то создается таблица с именем strFileName
Dim adoxCat As ADOX.Catalog
Dim adoxTbl As New ADOX.Table
Dim strType As String
Set adoxCat = New ADOX.Catalog
'получаем ссылку на текущую БД
adoxCat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Sourse='D:\Desktop\base_test.mdb"
If strLinkTblName = "" Then strLinkTblName = strTblName
With adoxTbl
    .ParentCatalog = adoxCat
    .Name = "155555"'имя создаваемой таблицы
    .Properties("Jet OLEDB:Link Datasource").Value = "[ODBC;Driver=SQL Server;Server=server;APP=Microsoft Office;UID=UserName;PWD=абырвалг; DataBase=base_Name].[dbo].[tablename]"
    .Properties("Jet OLEDB:Remote Table Name").Value = "155555"
    .Properties("Jet OLEDB:Create Link").Value = True
End With
adoxCat.Tables.Append adoxTbl 'добавляем таблицу в БД
Set adoxCat = Nothing
Set adoxTbl = Nothing

End Sub

.Properties("Jet OLEDB:Link Datasource").Value = "[ODBC;Driver=SQL Server;Server=server;APP=Microsoft Office;UID=UserName;PWD=абырвалг; DataBase=base_Name].[dbo].[tablename]"

.Properties("Jet OLEDB:Link Datasource").Value = "ODBC;Driver=SQL Server;Server=server;APP=Microsoft Office;UID=UserName;PWD=абырвалг; DataBase=base_Name"

Public Function SQLServerLinkedTable()
Dim oCat As ADOX.Catalog
Dim oTable As ADOX.Table
Dim sConnString As String

' Set SQL Server connection string used in linked table.
sConnString = "ODBC;" & _
               "Driver={SQL Server};" & _
               "Server={bigtuna};" & _
               "Database=pubs;" & _
               "Uid=sa;" & _
               "Pwd=;"

' Create and open an ADOX connection to Access database
Set oCat = New ADOX.Catalog
oCat.ActiveConnection = CurrentProject.Connection

' Create a new Table object
Set oTable = New ADOX.Table

With oTable
    .Name = "authors"
    Set .ParentCatalog = oCat
    .Properties("Jet OLEDB:Create Link") = True
    .Properties("Jet OLEDB:Remote Table Name") = "authors"
    .Properties("Jet OLEDB:Link Provider String") = sConnString
End With

' Add Table object to database
oCat.Tables.Append oTable
oCat.Tables.Refresh
Set oCat = Nothing

End Function