AS/400 - Comando de AS con VB

Alguien me podria explicar como debo de hacer para llamar un pgm y darle los valores.

este me devuelve error SQL
.CommandText = "{CALL QSTCPGM.C1RPE102 ('01', '01', '000001', '03', '2003')}"

En realidad no se como es la sintaxis para definirle los parametros, es decir para meter los datos de una sola ves con el comando.
al hacerlo en el AS esi:

CALL PGM(C1RPB102) PARM('01' '01' '000001' '03' '2003')

Como hago para mandar esa misma orden con VB (ya estoy conectado con odbc y mi usuario tiene los privilegios necesarios)

De antemano, Gracias por la ayuda

Tengo una aplicación en visual que ejecuta un programa en el AS400, lo ejecuta bien, solo estoy intendado que me devuelva parametros, tal vez le sirva si aun no ha logrado encontrar la forma.

Sub VALIDA_CONTRATO(contrato, descripcion, retorno)
Dim rc As Long
Dim mysystem As Object
Dim myrmtcmd As Object
Dim errorobject As Object
Dim selectionIndex As Long
Dim systemName As String
Dim libraryName As String
Dim errorcount As Long
Dim errorText As String
Dim vparametros As String * 11

Screen.MousePointer = 11

systemName = "SISTEMAS" 'nombre del as400

libraryName = "CARGAS" 'biblioteca donde se encuentra el programa

Set mysystem = CreateObject("cwbremotecallconversation")
Set myrmtcmd = CreateObject("cwbCommand")
Set errorobject = CreateObject("cwberrormessage")

Call errorobject.cwbsvSetup
rc = mysystem.cwbrcStartConversation(systemName, "")

If (rc <> cwbOK) Then
MsgBox (rc)
Else

retorno = "0"
vparametros = retorno & contrato


PROGRAMA = "call " + "VERICOCL " + vparametros

rc = myrmtcmd.cwbrcRunCmd(mysystem, PROGRAMA + libraryName, errorobject)


Screen.MousePointer = 0

If (rc <> cwbOK) Then
errorcount = errorobject.errorcount
If (errorcount <> 0) Then
For x = 1 To errorcount
Call errorobject.cwbsvGetErrTextIndexed(x, errorText)
MsgBox (errorText)


Next x

Tengo una aplicación en visual que ejecuta un programa en el AS400, lo ejecuta bien, solo estoy intendado que me devuelva parametros, tal vez le sirva si aun no ha logrado encontrar la forma.

Sub VALIDA_CONTRATO(contrato, descripcion, retorno)
Dim rc As Long
Dim mysystem As Object
Dim myrmtcmd As Object
Dim errorobject As Object
Dim selectionIndex As Long
Dim systemName As String
Dim libraryName As String
Dim errorcount As Long
Dim errorText As String
Dim vparametros As String * 11

Screen.MousePointer = 11

systemName = "SISTEMAS" 'nombre del as400

libraryName = "CARGAS" 'biblioteca donde se encuentra el programa

Set mysystem = CreateObject("cwbremotecallconversation")
Set myrmtcmd = CreateObject("cwbCommand")
Set errorobject = CreateObject("cwberrormessage")

Call errorobject.cwbsvSetup
rc = mysystem.cwbrcStartConversation(systemName, "")

If (rc <> cwbOK) Then
MsgBox (rc)
Else

retorno = "0"
vparametros = retorno & contrato


PROGRAMA = "call " + "VERICOCL " + vparametros

rc = myrmtcmd.cwbrcRunCmd(mysystem, PROGRAMA + libraryName, errorobject)


Screen.MousePointer = 0

If (rc <> cwbOK) Then
errorcount = errorobject.errorcount
If (errorcount <> 0) Then
For x = 1 To errorcount
Call errorobject.cwbsvGetErrTextIndexed(x, errorText)
MsgBox (errorText)


Next x

Me faltó esta parte de código. Espero que le sea de utilidad.

Else
MsgBox (rc)
End If
End If
End If
Screen.MousePointer = 0
End Sub