Conexión de ASP a AS/400 y cómo usar los query?

Hola, actualmente estoy desarrollando un proyecto en ASP
con conexión a una base de datos en AS/400, aparentemente
tengo bien la conexión pero el query donde hay un "select"
me arroja el siguiente error:

IBMDA400 Session error '80004005'

CWBDB0001 - El handle de conexión ha fallado al intentar
contactar con el servidor (Sistema TAVISOS)

/Sistema Avisos/prueba.asp, line 12

y la syntaxys que uso es la siguiente:

<% Dim oConn1
Dim oRs
Set oConn1 = Server.CreateObject
("ADODB.Connection")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "dbavisos"
oConn1.Open "Provider=IBMDA400;" & _
"Data Source=TAVISOS," & _
"User Id=JESUS3," & _
"Password=JESUS3"

Set oRs = Server.CreateObject("ADODB.Recordset")

oRs.open "Select * from ADAM.LCLIENT99",
oConn1, 1, 1

%>

está correcto ó faltará algo?