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.Close
End Sub

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