noyさん、こんにちは。

どんなコードで接続しようとしていますか？
すみません、私はAS400+PBは未経験で
さらにPBがないので試してはないのですが、
こんな感じではないかと思います。
どうでしょうか。

Excelでは接続成功しているみたいなので、
noyさんのコードで合っていると思いますし
あまり参考にならないかもしれませんが、
比較してみて下さい。
ADOのエラーは
\\IBM\\Client Access\\サービス\\トレースファイル\\IBMDA400.log
に私の環境では記録されています。

CONSTANT long adOpenDynamic=2 
CONSTANT long adOpenForwardOnly= 0
CONSTANT long adOpenKeyset = 1 
CONSTANT long adOpenStatic= 3 
CONSTANT long adOpenUnspecified= -1 

CONSTANT long adLockBatchOptimistic = 4 
CONSTANT long adLockOptimistic = 3
CONSTANT long adLockPessimistic = 2
CONSTANT long adLockReadOnly = 1
CONSTANT long adLockUnspecified = -1

CONSTANT long adCmdText=1 

CONSTANT long adUseClient = 3
CONSTANT long adUseServer = 2 

OLEObject cn,rs //ADOオブジェクト
String sqlText
long c,r,i

cn = CREATE OLEObject
rs = CREATE OLEObject
cn.ConnectToNewObject(\'ADODB.Connection\')
rs.ConnectToNewObject(\'ADODB.Recordset\')

//ADO+AS400 OLE Provider を使用する方法
cn.Provider = \"IBMDA400\"
cn.ConnectionString = \"Data Source=AS400IPアドレス;User ID=ユーザID;Password=パスワード\"
//ADO+ODBC 
//con.ConnectionString = \"Driver={Client Access ODBC Driver (32-bit)};System=AS400IPアドレス;Uid=ユ
ーザID;Pwd=パスワード\"

cn.Open
sqlText = \"SELECT * FROM TESTLIB.FILE\"
rs.CursorLocation = adUseServer
rs.Open(sqlText,cn,adOpenDynamic, adLockOptimistic,adCmdText)

ただ、ODBCからIBMDA400に切り替えても、劇的（体感的）に
レスポンスが早くなる保証はあまりない気もしますけどね。