...könnte der Select auch so aussehen?

select username, pcstation
from mvtel1p
where username = char('&VAR')

Birgitta:
In VS2010 über ADO stosse ich ein CL an:

Dim VAR1 AsString
VAR1 = "'" & txt_eingabe.Text & "'"
'************************************************* ************
'Daten holen
'************************************************* ************
Dim cnn As ADODB.Connection
Dim con_str AsString
Dim CallCmd AsNew ADODB.Command
Dim cmd AsString
cnn = New ADODB.Connection
cmd = "CALL TRUMPFH.TESTMARTIN(" & VAR1 & ")"
...

das CL sieht folgendermaßen aus:

PGM PARM(&VAR1)
DCL VAR(&VAR1) TYPE(*CHAR) LEN(15)

STRQMQRY QMQRY(TRUMPFH/MARTIN_4) OUTPUT(*PRINT) +
ALWQRYDFN(*YES) SETVAR((VAR1 &VAR1))
MONMSG MSGID(CPF0000)
ENDPGM: ENDPGM

Die Qry MARTIN_4 hat obigen Select

Gruss
Tobias