AS/400 - Conexión ASP con AS/400

Buenos días:

Agradecería la ayuda que me puedan brindar pues no logro conectarme a un as/400 por medio de asp. Y a he intentado varios código y ninguno me sirve por ejemplo estos:

Conn.Open "Provider=IBMDA400;" & _
"Data source=SM;" & _
"User Id=;" & _
"Password="
o

STRCONEC = "Provider=IBMDA400;Password=;User ID=;Data Source=SM;Transport Product=ClientAccess;SSL=DEFAULT"
ConecAs400.Open STRCONEC

pero nada.

Gracias de antemano.

Prueba con esto:

Dim Base As ADODB.Connection
Set Base = New ADODB.ConnectionBase.Open "Provider=IBMDA400;Data Source=NOMBREMAQUINA;User ID=QSECOFR;Password="

NOMBREMAQUINA : El nombre de la máquina AS/400 a la que se quiere acceder. El nombre de la máquina es el mismo que el dado en el controlador del "Entorno primario" de Client Access

Ejemplo de una actualización / adicción

Dim Datos As ADODB.Recordset
Set Datos = New ADODB.RecordsetDatos.CursorLocation = adUseClientDatos.Open "SELECT * FROM BIBLIOTECA.ARCHIVO", Base, adOpenDynamic, adLockPessimistic