Access - Vincular Dbase desde Access

Public Sub VincularTabla()

   Dim db As DAO.database

   Dim tdfClientes As DAO.TableDef

   Set db = CurrentDb

   'Pasos a dar:

   '1º Creamos una nueva tableDef, para la tabla vinculada

   Set tdfClientes = db.CreateTableDef("Clientes")

   '2º Establecemos la propiedad Connect

   tdfClientes.Connect = ";Database=c:\vb\datos\Datos.mdb"

   '4º Establecemos la propiedad SourceTableName

   tdfClientes.SourceTableName = "Clientes"

   '5º Añadimos la TableDef a la colección TableDefs

   db.TableDefs.Append tdfClientes

   '6º Barremos la habitación

   Set tdfClientes = Nothing

   db.Close

   Set db = Nothing

End Sub