vb通过adodb连接db2数据库

我是第一次接触vb和db2数据库，哪位大佬帮忙改下代码吧
代码是
Dim constr As String
Dim sqlsr As String
Dim conn As New ADODB.Connection

    constr = "Provider=IBMDADB2;Database=SAMPLE; Hostname=myServerAddress; Protocol=TCPIP;Port=50000; Uid=Administrator;Pwd=; "
    Dim rs As New ADODB.Recordset
    conn.Open(constr)
    sqlsr = "SELECT DATE FEOM AA WHERE NUMBER=2"
    rs = conn.Execute(sqlsr)
    conn.Colse
    conn = Nothing
            一运行就报错System.Runtime.InteropServices.COMException:“未找到提供程序。该程序可能未正确安装。”
            而且注册ibm.data.db2.dll不成功一直报错!
            ![图片说明](https://img-ask.csdn.net/upload/201811/20/1542703185_278343.jpeg)

没有安装对db2的数据库提供程序

问题上上传出问题就只能回答里发一下了，大神们帮帮忙，顺便看看我那个连接字符串有什么问题，没有设置db2的用户和密码