连接IBMDB2数据库问题，请高手帮忙！

[zhaopan527]

运行后出现 SQL30082N尝试连接失败，安全性原因为“24”（“USERNAME AND/OR PASSWORD INVALID"）。SQLSTATE= 08001

oConn.Open DBSql 这句调试不能通过

换一个机器运行能通过，我的机器上却不行，输入的用户名没有错啊
另外，Activex Data Object也引用了

所有的代码都在下面了，请高手帮忙看看，谢谢！

Private Sub Command1_Click()

Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection
Dim redset As ADODB.Recordset
Set redset = New ADODB.Recordset

DBSql = "Provider=IBMDADB2;Database=DXDBR17;Hostname=10.2.190.24;Protocol=TCPIP;Port=50000;Uid=123456;Pwd=123456;"

Debug.Print DBSql

oConn.Open DBSql

sqlstring = "select * from EV5ADM.E02ACTIONDESIGN where VUSER='" & UCase(Text1.Text) & "'"

Debug.Print UCase(Text1.Text)

redset.Open sqlstring, oConn, 1, 1

Do While Not redset.EOF
List1.AddItem redset("VNAME").Value
redset.MoveNext
Loop

End Sub

[tianhuo_soft]

sql服务器有问题

在客户端工具里面 添加 TCp/ip协议

[zhaopan527]

楼上的，你是说网络邻居里面的Tcpip协议么？ 我添加了啊