AS/400 - acceso arhivos en AS400 desde VB

AS/400 VB coneccción
Necesito accesar un archivo existente en AS/400 usando VB. Alguien tiene un buen ejemplo?.

Aquí te va un ejemplo utilizando ODBC

'variables de base de datos
Dim conexion As New ADODB.Connection
Dim rsTempo As New ADODB.Recordset
Dim sSql As String
'coneccion as400
sSql = "DSN=s1045cam;UID=hloredo;PWD=varlop;" ' s1045cam es el DNS de ODBC
conexion.Open sSql
sSql = "select * from tabla.aobjeto"
rsTempo.Open sSql, conexion, adOpenKeyset, adLockOptimistic, adCmdText
If rsTempo.EOF Then
MsgBox "recordset vacío"
Else
While Not rsTempo.EOF 'Mostrar el contenido de la consulta del RecordSet
MsgBox rsTempo.Fields(0) & " " & Trim(rsTempo.Fields(2)) & " " & Trim(rsTempo.Fields(3)) & " " & Trim(rsTempo.Fields(4))
rsTempo.MoveNext
Wend
End If
conexion.Close

Otra forma de accesar es por CA Express (SDK)
si tienes alguna duda puedes consultarme, no soy experto pero si puedo ayudarte adelante, saludos

ISC Hugo A. Loredo Campillo
Sistemas
La Cerveza Corona del Centro, SA de CV
SLP

Busca en este Reedbook \"A Fast Path to AS/400 Client/Server Using AS/400 OLE DB Support\" su nunmero es SG24-5183-00 la pagina internet es http://www.redbooks.ibm.com/, alli encotraras lo que buscas y mas... suerte