Visual Basic - Ejecutar Programa del As/400 desde Visual Basic

Como ejecuto un programa residente en el As/400 desde Visual Basic.
El programa del 400 tiene varios parametros

El Código que he usado hasta ahora es :

With cmd
.ActiveConnection = cnx
.CommandText = "{{CALL PRUEBA 'PRUEBA7890' 1234567890}}"
End With
cmd.Execute

Esto funciona pero solo con un parametro.

Fijate de separarlos por comas o con un objeto Command:

Dim cnt As Connection, cmd As Command, rst As Recordset

Set cnt = New ADODB.Connection

cnt.Open "TuConnectionString"

Set cmd = New ADODB.Command

Set cmd.ActiveConnection = cnt

cmd.CommandType = adStoredProc
cmd.CommandText = "MiProcedimiento"

cmd.Parameters.Append cmd.CreateParameter("param1",TipoDeDatos,adParamInput,Longitud,Valor

cmd.Parameters.Append cmd.CreateParameter("param2",TipoDeDatos,adParamInput,Longitud,Valor

cmd.Parameters.Append cmd.CreateParameter("param3",TipoDeDatos,adParamInputOutput,Longitud,Valor

Set rst = cmd.Execute

Muchas Gracias por tu ayuda, sin embargo pude ejecutar el programa residente en el 400 solo con un parametro.
El mensaje que me da el As/400 cuando intento ejecutarlo con mas de un parametro es que me excedi de la cantidad permitida.
Mi pregunta es si el codigo que me enviastes es especificamente para un As/400.

De la forma como me la enviastes lo hago con SQL SERVER y funciona perfecto, si tienes algun detalle adicional en relación al As/400 te agradezco muchisimo si me lo puedes hacer saber.

Gracias