顶者有分.net 连接DB2 , 怎么老连不上呢,大家来看看

 'db2引擎连接 
        Dim ds As New DataSet()
        Dim dt As New DataTable()
          Dim cnnString As String = "Provider=IBMDADB2;Database=scbd_zs;Hostname=172.16.3.15;Protocol=TCPIP;Port=50000;Uid=db2admin;Pwd=admindb2;"
        Dim cnn As New DB2Connection(cnnString) ' IBM.Data.DB2.DB2Connection”的类型初始值设定项引发异常。    
          cnn.Open()
        Dim sql As String = "select * from t_pda_device"
        Dim da As New DB2DataAdapter(sql, cnn)
        da.Fill(ds, "tab")
        da.Fill(ds, "SysTable")        cnn.Close()
        cnn.Dispose()
        ds.Dispose()
        da.Dispose()