De esta Manera Creo no vas a tener problemas, proba, y suerte :
*----------------Codigo Ejemplo -----------------------*
Ejemplo:
Function Usuario()
Dim Con as ADODB.Connection
Dim Rst as ADODB.Recorset
Set Con = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
Con.Open "DSN=PRUEBA ODBC" - esta es tu ODBC de Usuario
Rst.Open "Select *From Archivo.Biblioteca",Con - este es tu
filtro de selección en que estableces la conexión a una archivo
especifico del as400
End Function
Una vez establecida la conexión, puedes leer tu Recordset
Ejemplo:
Rst.MoveFirst
Do While Not Rst.EOF()
Aquí debes agregar tu líneas de código
Rst.MoveNext
Loop
