Nochmals DANKE und so klappte es :

Option Explicit
Sub as400()
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Set cnn = New ADODB.Connection
Dim CallCmd As String

cnn.Open "Provider=IBMDA400;" & _
"Data Source=192.***.***.***;" & _
"User ID=********;" & _
"Password=********;"

CallCmd = "runqry qry([LIB]/[QRY])"
cnn.Execute "CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")"
cnn.Close

End Sub
DANK FUERCHAU