habe das jetzt so umgesetzt, klappt aber noch nicht:

cnn = New ADODB.Connection
con_str = "Driver={iSeries Access ODBC Driver};System=ICHAS;Uid=TRUMPFH;Pwd=tobias;"
cnn.Open(con_str)
'CallCmd = New ADODB.Command
OnErrorResumeNext
CallCmd = "STRQMQRY QMQRY(TRUMPFH/TTRWLSVST1) OUTPUT(*OUTFILE) OUTFILE(TRUMPFH/TTRWLSVST1) ALWQRYDFN(*YES) SETVAR((VAR1 " & VAR1 & "))"
CallCmd = Replace(CallCmd, "'", "''")
cnn.Execute("CALL QSYS.QCMDEXC('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")
cnn.Close()

Habe ich hier einen Denkfehler?

Gruss
Tobias