请问用VB6如何动态的设置ODBC ？

Question

DAO对象有这个方法。
DBEngine.RegisterDatabase，具体参数你查一下帮助。

Answer 1

你先在工程的引用中把DAO加进去，然后输入DBEngine.RegisterDatabase，选中“RegisterDatabase”，按F1，OK？

Answer 2

引用 Odbc Driver & data source name functions ,Registry access functions 
Dim DS() As String
GetDataSourceList DS
If CreateDSN("DsnName", "Microsoft Access Driver (*.mdb)", "", "", "Admin", "", "数据源建立演示", True, "DBQ=d:\db\01.mdb") = True Then
       MsgBox "数据源建立成功！！！", vbOKOnly + 64, "建数据源"
Else
      MsgBox "数据源建立失败！！！", vbOKOnly + 16, "建数据源"
End If
or 
引用 Microsoft Remote Data Object 2.0
strAttribs = "DBQ=" & "d:\db\01.mdb" rdoEngine.rdoRegisterDataSource "DsnName", "Microsoft Access Driver (*.mdb)", True, strAttribs

Answer 3

例子Sub RegisterDatabaseX() Dim dbsRegister As Database
Dim strDescription As String
Dim strAttributes As String
Dim errLoop As Error ' Build keywords string.
strDescription = InputBox( "Enter a description " & _
"for the database to be registered.")
strAttributes = "Database=pubs" & _
vbCr & "Description=" & strDescription & _
vbCr & "OemToAnsi=No" & _
vbCr & "Server=Server1" ' Update Windows Registry.
On Error GoTo Err_RegisterDBEngine.RegisterDatabase "Publishers", "SQL Server", _
True, strAttributes
On Error GoTo 0 MsgBox "Use regedit.exe to view changes: " & _
"HKEY_CURRENT_USER\" & _
"Software\ODBC\ODBC.INI" Exit SubErr_Register: ' Notify user of any errors that result from
' the invalid data.
If DBEngine.Errors.Count > 0 Then
For Each errLoop In DBEngine.Errors
MsgBox "Error number: " & errLoop.Number & _
vbCr & errLoop.DescriptionNext errLoop
End If Resume NextEnd Sub