VBA AdoDb Load Data from AS400

VBA Code

Sub loaddata_Click()    Dim Con As New ADODB.Connection    Dim cmd As New ADODB.Command    Dim rs As New ADODB.Recordset        Dim wsCostAnalysis As Worksheet        Dim conStr, strsql As String        Set wsCostAnalysis = Worksheets("Sheet1")            conStr = "provider=ibmda400;data source=AS400IP;User Id=UserID;Password=UserPWD"        Con.Open (conStr)    Set cmd.ActiveConnection = Con        strsql = "select * from Lib.file"             cmd.CommandText = strsql    Set rs = cmd.Execute            If rs.EOF Then        MsgBox "No records in system"        Exit Sub    Else        wsCostAnalysis.Range("A4:E9999").ClearContents        wsCostAnalysis.Range("A4").CopyFromRecordset rs        Set rs = Nothing    End If        Con.CloseEnd Sub

在工具栏选择“引用”出现如下的对话框，查找到并打钩选中“Microsoft ActiveX Date Objects 2.8 Library”