¿Hay alguna otra forma diferente de automatizar la vinculación de tablas para que sea mas rápida? Es lo tipico de cambiar de empresa. Al cambiar de empresa desvinculo la actual mdb y despues vinculo a otra mdb. El codigo para vincular es: For j = 1 To i - 1 Step 1 DoCmd.TransferDatabase acLink, "Microsoft Access", _ ruta, acTable, tablas(j), tablas(j) Next y para desvincular: DoCmd.DeleteObject acTable, "Almacen" .... pero veo que tarda bastante, ¿hay otra solución más rápida? gracias RESPUESTA ========= Sub Enlazar(NombreArchivo As String) Dim Defs As TableDefs Dim NombreMDb as String NombreMDB = "BaseDedatos.mdb" Set Defs = CurrentDb.TableDefs On Error Resume Next Defs.Delete NombreArchivo On Error GoTo 0 'Vincular Tabla Dim td As TableDef Set td = CurrentDb.CreateTableDef(NombreArchivo) Dim Carpeta As String Carpeta = "c:\CarpetaDondeEstáLaMDB\" td.Connect = ";DATABASE=" + Carpeta + NombreMDB td.SourceTableName = NombreArchivo ' Nombre en Destino CurrentDb.TableDefs.Append td End Sub