ADO and AS/400

I am tryign to use ADO and OpenSchema to get a list of the table headers of
an AS/400 library.  The code works fine when i do it to an Access database,
but against the AS/400 it comes back empty.  The DoWhile doesn't fire
because the recordset is empty.  I am using OS/400 4.4 and the ole db
provider with client access express 5.1.  I am also running VB 6 and ADO 2.7
on Windows XP. Is there another way of doing this or is it not supported or
something?

Here is the code I am using:

Dim sOutput As String
Dim MyRecordset As ADODB.Recordset
Set MyRecordset = New ADODB.Recordset

Set MyRecordset = MyConnection.OpenSchema _
        (adSchemaColumns, Array(Empty, Empty, "RUGR80DAT.PMSPAG00"))

    Do While Not MyRecordset.EOF
        MsgBox MyRecordset.Fields.Count
        sOutput = sOutput & MyRecordset!COLUMN_NAME & vbCrLf
        MyRecordset.MoveNext
    Loop

Adam Lang
Systems Engineer
Rutgers Casualty Insurance