.Properties("Jet OLEDB:Create Link") = True
 .Properties("Jet OLEDB:Link Datasource") = sExternFile
 .Properties("Jet OLEDB:Remote Table Name") = sExternTable

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

    'Erstellt eine verlinkte Tabelle in einer Access-Datenbank
    Sub create_accdb_table_LINK(ByVal database_name As String, ByVal tbl_name _
      As String, ByVal sExternFile As String, ByVal sExternTable As String)
 
        Try
            Dim oConn As ADODB.Connection
            Dim strCNN As String
            oConn = New ADODB.Connection
            strCNN = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
             "Data Source=" & Application.StartupPath.ToString & "\_data\" & _
             database_name & ";"
            oConn.Open(strCNN)
 
            Dim oCat As ADOX.Catalog
            Dim oTable As ADOX.Table
            oCat = New ADOX.Catalog
            oCat.ActiveConnection = oConn
            oTable = New ADOX.Table
 
            With oTable
                .ParentCatalog = oCat
                .Name = tbl_name  'Tabellenname
 
                .Properties("Jet OLEDB:Create Link") = True
                .Properties("Jet OLEDB:Link Datasource") = sExternFile
                .Properties("Jet OLEDB:Remote Table Name") = sExternTable
 
            End With
 
            oCat.Tables.Append(oTable)
            oTable = Nothing
            oCat = Nothing
            oConn.Close()
        Catch ex As Exception
 
        End Try
    End Sub