'Posteado por SoftJaen
'News de VB
'Vincular tabla con ADO

    Dim cnnActual As New ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
 
    ' Establezco la conexión con la base de datos actual, que 
    ' ahora es la BASE DE DATOS Nº 1
    With cnnActual
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                          "Data Source=I:\VBNews\Bd1.mdb;" & _
                          "Jet OLEDB:DataBase PassWord=LATINOAMERICALIBRE;"

        .Open
    End With
 
    ' Abro el catálogo
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = cnnActual
 
    ' Creo la nueva tabla
    Set tbl = New ADOX.Table
    tbl.Name = "Tabla Temporal"
    Set tbl.ParentCatalog = cat

    ' Establezco las propiedades para crear el vínculo con la tabla
    ' de la segunda base de datos
    With tbl
        .Properties("Jet OLEDB:Link Datasource") = "I:\VBNews\Bd2.mdb"
        .Properties("Jet OLEDB:Remote Table Name") = "Tabla B"
        .Properties("Jet OLEDB:Create Link") = True
        ' Establezco la contraseña
        .Properties("Jet OLEDB:Link Provider String") = "MS Access;Pwd=LATINOAMERICALIBRE"
    End With

    ' Añado la tabla a la colección 'Tables'.
    cat.Tables.Append tbl
    
    ' Y ahora, ya puedo actualizar los registros.
    With cnnActual
        ' Añado los registros
        .Execute "UPDATE [Tabla A] INNER JOIN [Tabla Temporal] ON [Tabla A].Articulo = [Tabla Temporal].Articulo SET [Tabla A].ArtPersonalizados = [Tabla Temporal].[ArtPersonalizados]"
        ' Elimino el vínculo
        .Execute "DROP TABLE [Tabla Temporal]"
        ' Cierro la conexión
        .Close
    End With