Buho
No obstante, una vez creada la tabla, la vinculacion se hace muy facilmente:
Si tu tabla se llama Clientes y se encuentra en la ruta C:\TwPac\Datos.Mdb ,
y la quieres vincular a tu base de datos actual, haz lo siguiente:
DoCmd.TransferDatabase acLink, "Microsoft Access","C:\Twpac\Datos.mdb",acTable, "Clientes", "Clientes", False

VINCULA CON CONTRASEÑA. Hilo de Happy y Buho:
=============================================

Dim db As DAO.Database

    Set db = DBEngine.OpenDatabase("c:\db1.mdb", True, False,";pwd=contraseña")

    DoCmd.TransferDatabase acLink, "Microsoft Access", "c:\db1.mdb",acTable, "Tabla", "TablaVinculada"

    Set db = Nothing


El truco de Juan reside en abrir una instancia de la MDB de tlas tablas, que tiene contraseña, antes de
hacer el TransferDatabase

El interlocutor pregunta posteriormente como hacer esto mismo con ADO

Responde Buho:

El codigo del enlace se puede resumir bastante, teniendo en cuenta que si la
MDB que corre el codigo es a la que quieres linkar una tabla de otra MDB
protegida por contraseña, podemos establecer la conexion a la mdb que corre
el codigo, mediante CurrentProject.Connection.
Por ejemplo:
    'Debes refenciar la Library ADOX=Microsoft ADO Ext.2.X for Ddl

    Dim Catalogo As ADOX.Catalog
    Dim TablaLinkada As ADOX.Table

    Set Catalogo = New ADOX.Catalog
    Catalogo.ActiveConnection = CurrentProject.Connection

    ' Creo la nueva tabla en esta MDb que corre el codigo
    Set TablaLinkada = New ADOX.Table
    TablaLinkada.Name = "MitablaLInkada"
    Set TablaLinkada.ParentCatalog = Catalogo

    ' Establezco las propiedades para crear el vínculo con la tabla
    ' de la segunda base de datos protegida por contraseña
    With TablaLinkada
        .Properties( _
            "Jet OLEDB:Link Datasource") = CurrentProject.Path & _
            "\datos.mdb"
        .Properties("Jet OLEDB:Remote Table Name") = "TablaLejana"
        .Properties("Jet OLEDB:Create Link") = True
        ' Establezco la contraseña
        .Properties( _
            "Jet OLEDB:Link Provider String") = "MS Access;Pwd=contraseña"
    End With

    ' Añado la tabla a la colección 'Tables'. de esta MDB
    Catalogo.Tables.Append TablaLinkada


Así debería bastar. No sé si existe con ADOX algun metodo mas facil y
directo.
Este debería funcionarte.(Esperemos)