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

运行后出现    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 --------------------编程问答-------------------- sql服务器有问题  

   在客户端工具里面 添加 TCp/ip协议 --------------------编程问答-------------------- 楼上的，你是说网络邻居里面的Tcpip协议么？ 我添加了啊

补充：VB ,  数据库(包含打印，安装，报表)