VB中如何用代码注册DSN

RDO：方法：
rdoEnvironment.girdoRegisterDataSource DSN, driver, silent, attributesDSN 字符串表达式，是在引用数据源描述信息块的 OpenConnection 方法中使用的名字。例如，如果数据源是一个 ODBC 远程数据库，这就是服务器的名字。 
Driver 字符串表达式，表示 ODBC 驱动程序的名称。它并不是 ODBC 驱动程序动态连接库 (DLL) 文件名。例如，SQL Server 是驱动程序名，而 SQLSRVR.DLL 是 DLL 文件名。必须安装有 ODBC 及相应的驱动程序。 
Silent 布尔 值，如果不想显示 ODBC 驱动程序对话框，用以提示指定驱动程序的信息，该值就为 True；否则，如果希望显示 ODBC 驱动程序对话框，该值就为 False。如果 silent 为 True，attributes 必须包含所有必需的指定驱动程序的信息，否则，对话框会随时出现。 
Attributes 字符串表达式，它是一个要添加到 ODBC.INI 文件中的关键字列表。各关键字是在用回车作分割符的字符串中。 例：
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
'建造关键字字符串。
strAttribs = "Description=" _
        & "SQL Server on server SEQUEL" _
  & Chr$(13) & "OemToAnsi=No" _
  & Chr$(13) & "SERVER=SEQUEL" _
  & Chr$(13) & "Network=DBNMPNTW" _
  & Chr$(13) & "Database=WorkDB" _
  & Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"
  
'建立新的注册的 DSN。
rdoEngine.rdoRegisterDataSource "示例", _
         "SQL Server", True, strAttribs
'打开数据库。
Set en = rdoEngine.rdoEnvironments(0)
Set cnTest = en.OpenConnection( _
  dsname:="示例", _
  Prompt:=rdDriverNoPrompt, _
  Connect:="UID=;PWD=;")