Oprette dsn og linke tabeller fra kode eller macro

Hvorfor vil du lave en dsn via kode? Er det bare fordi du vil linke tabellerne fra SQl serveren? I så fald behøver du jo ikke en DSN. Du kan skrive din connectstring direkte, når du linker.
F.eks. sådan her:
  Dim Tdef as Tabledef
  Dim db as Database
  Set db = Currrentdb
  Set TDef = db.CreateTableDef(\"NyTabel\")
  TDef.Connect = \"ODBC;DRIVER=SQL Server;SERVER=MyServer;UID=2001Stausholm;pwd=eksperten;DATABASE=MyDatabase\"
  TDef.SourceTableName = \"NyTabel\"
  db.TableDefs.Append TDef

Koden benytter DAO, hvorfor der skal sættes til reference til dertil hvis du bruger Access 2000.

/Thomas