请问如何在vb中用代码在ODBC中建立数据库源

Question

Public J_CNObj As New ADODB.ConnectionPublic Function ConnectServer(StrServerName As String, StrUserID As String, StrPassword As String) As Boolean
On Error GoTo connecterrhand
         J_CNObj.ConnectionString = "SERVER=" & StrServerName & ";PROVIDER=SQLOLEDB" & _
        ";UID=" & StrUserID & ";PWD=" & StrPassword
        J_CNObj.Open
    ConnectServer = True '成功
         Exit Function
connecterrhand:
    ConnectServer = False '失败
End Function以上代码写在模块中，不知道是不是你要问的问题