Connect to an AS/400 (iSeries) using ADODB in VBA.

as400_adodb_xls.txt

Function GetFileContentFromAS400(host As String, iasp as String, library As String, filename As String) As String
    Dim myConnect As New ADODB.Connection
    Dim rsRecords As New ADODB.Recordset
    Dim fileContent As String
    With myConnect
        If .State = adStateOpen Then
            myConnect.Close
        End If
        .Open "Driver=iSeries Access ODBC Driver;SYSTEM=" + host + ";DATABASE=" + iasp + ";COMPRESSION=1;TRANSLATE=1;"
    End With
    rsRecords.Open "SELECT * FROM " + library + "." + filename + "", myConnect
    fileContent = ""
    Do Until rsRecords.EOF
        If fileContent <> "" Then
            fileContent = fileContent & vbLf & rsRecords(0).Value
        Else
            fileContent = rsRecords(0).Value
        End If
        rsRecords.MoveNext
    Loop
    rsRecords.Close
    myConnect.Close
    
    GetFileContentFromAS400 = fileContent
End Function