如何让程序自动建立 ODBC ?

以前用 VB 开发的系统，有时因各种原因，需要使用 ODBC ，建立ODBC 有几种方法:

一， 旧的方法是人工手动的在每台电脑上建立，麻烦，费时，特别是用户很多时...

二， 使用专门的建立 ODBC 的小程序，在每台需要的电脑上运行，也可以放在网络上，开机自动执行。可行，但也不方便，有时可能会忘记，或在不需要建立的电脑上也建立

三， 在开发的系统中直接加入建立ODBC 的代码，以实现仅对使用此系统的电脑进行建立，每次用户点击使用此系统时，均会重建此ODBC，当然其中的 Server IP / Database Name 可放在 INI 文件中，以实现不需要修改代码即可变更ODBC 的目的，也可以用其它控制方法以实现在每台电脑上仅运行一次的目的。

其中关键的实现代码如下:

' 注意: 此代码需要 DAO 支持，故需要引用 DAO

    Dim str1 As String

    ' 联接字串
    str1 = "Description=Create ODBC CVC"
    str1 = str1 & vbCr & "Server=192.168.1.21"
    str1 = str1 & vbCr & "Database=MyDBName"
    str1 = str1 & vbCr & "OEMtoAnsi=NO"
    ' 建立ODBC
    DBEngine.RegisterDatabase "ODBCName", "SQL Server", True, str1