如何连接局域网内的ODBC数据源？

[jeansjcl]

我用以下的代码连接了本机的ODBC数据源。

Public db As New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "dsn=test;uid=;pwd="


我现在想用代码连接比如计算机名为“zsu”的ODBC数据源，请问如何实现？
thanks

[w18ily]

Private Sub Connect(sServer As String, sLoginID As String, sPassword As String)

Dim cn As New ADODB.Connection

MousePointer = vbHourglass

' DSN Connection using the OLE DB provider for ODBC - MSDASQL
cn.ConnectionString = "DSN=" & _
";DATABASE=pubs;UID=" & sLoginID & _
";PWD=" & sPassword

' Prompt the user to select the DSN
cn.Properties("Prompt") = adPromptComplete
cn.Open
cn.Close

MousePointer = vbDefault

End Sub

[w18ily]

Private Sub DSNlessConnect(sServer As String, sLoginID As String, sPassword As String)

Dim cn As New ADODB.Connection

MousePointer = vbHourglass

' DSNless Connection using the OLE DB provider for ODBC - MSDASSQL
cn.ConnectionString = "DRIVER=SQL Server" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=pubs"
cn.Open
cn.Close

MousePointer = vbDefault

End Sub

[jeansjcl]

不是连接SQL Server，是要通过其他机的ODBC的接口，访问该机的数据库，不管该数据库是SQL Server、Access还是其他。