Dim db As DAO.Database
Set db = CurrentDb
' Eliminar las tablas vinculadas existentes (opcional)
db.TableDefs.Refresh
For Each tdf In db.TableDefs
If tdf.Connect <> "" Then
db.TableDefs.Delete tdf.Name
End If
Next tdf
' Vincular una tabla en modo solo lectura
Dim tdf As DAO.TableDef
Set tdf = db.CreateTableDef("TablaVinculada")
tdf.Connect = "ODBC;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Ruta\Hacia\La\BaseDeDatos.mdb;READONLY=TRUE"
tdf.SourceTableName = "NombreDeLaTabla"
db.TableDefs.Append tdf
' Actualizar las tablas vinculadas
db.TableDefs.Refresh