Hallo Herr Fuerchau,

Ich habe beides ausprobiert..

mittels Connection Object:

With cnn400
strSQL2 = "ADDLIBLE LIB(Lib1)"
strsql1 = "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & "0000000023.00000)}}"
.Execute strsql1
End With

mittels Command Objekt:

Set cmd400 = New ADODB.Command
Set cmd400.ActiveConnection = cnn400
With cmd400
strSQL2 = "ADDLIBLE LIB(Lib1)"
strsql1 = "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & "0000000023.00000)}}"
MsgBox strsql1
.CommandText = "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & "0000000023.00000)}}"
.CommandType = adCmdText
.Execute
End With

VB6 bringt mir einen Laufzeitfehler
CPF0006 - Im Befehl ist ein Fehler.

Ich hoffe Sie haben noch einen Tipp.