求用ACCESS代码动态创建ODBC方法
考虑到ACCESS开发的方便性，给单位结合ERP系统开发了大量的应用程序。但每次安装时需要单独配置ODBC，而且SQLSERVER中设置有密码，不想客户端操作者随意联接SQL乱动数据。因此想征求ACCESS动态创建ODBC方法。
        我用的开发环境是ACCESS2003+SQLSERVER2000+WIN2000PRO系统
即直接利用ODBC，在ACCESS中创建连接表，在连接表的基础上进行查询和代码操作。
        现在网络上提供了VB或ACCESS中创建ODBC代码，但只能在ODBC中创建一个名称，却无法将SQL用户名、密码、选择数据库等参数写入。
        所以我所关心的问题仍然无法解决。请有同种开发习惯的同行帮忙提供操作方法，谢谢拉。

------解决方案--------------------
建链接表
Dim db As Database
Dim tdef As TableDef
Set db = CurrentDb()
Set tdef = db.CreateTableDef( "TS ")
tdef.Connect = "ODBC;Driver=SQL Server;server=ZJH;UID=sa;PWD=;DATABASE=MSPetShop "
'tdef.Connect = "ODBC;DATABASE=MSPetShop;UID=sa;PWD=;DSN=hh "　用DSN
tdef.SourceTableName = "dbo.Account "
db.TableDefs.Append tdef