If a program exists on an Iseries box (as/400) and I have to call it using vb 6 how do I do it? I have added the following code but cannot seem to be able to run the program.
In general declarations:
Dim connAS400 As New ADODB.Connection

behind a 'push button'
connAS400.Open "Provider=IBMDA400;Data Source=xxx.xx.xxx.xx;", "", ""

further down the code

Set cmdPrint.ActiveConnection = connAS400
With cmdPrint
     .CommandText = "{{CALL /QSYS.LIB/MYNAME.LIB/PROGRAMNAME.PGM()}}"
     .Prepared = True
     '.Parameters.Append
     .Execute numRecs, adCmdText
End With

Resolved. Figured out what needed to be done. Thanks for looking.