LIER DES TABLES ODBC DANS ACCESS PAR LE CODE

   Dim dbsCurrent As Database
   Dim tdfLinked As TableDef

   ' Ouvre la base de données courante.
   Set dbsCurrent = CurrentDb
   ' Crée une table liée pointant vers une base de données ODBC.
   Set tdfLinked = dbsCurrent.CreateTableDef("MATABLE_DESTINATION")
   tdfLinked.Connect = "ODBC;UID=MYUSER;PWD=MYPASSWORD;DSN=MYDSN"

   tdfLinked.SourceTableName = "MATABLE_SOURCE"
   'Lie la table
   dbsCurrent.TableDefs.Append tdfLinked
   'Rafraichit les données
   tdfLinked.RefreshLink

   ' Supprime la table liée car il s'agit d'un exemple.
   dbsCurrent.TableDefs.Delete tdfLinked.Name

   'ferme la connexion
   dbsCurrent.Close