Hier die Antwort vom PC-Mann:

Wir setzen den IBMDA400 Treiber ein.

Hier der Code:

strSQL = "LEI.LEIS6100"

' Command Objekt für StoredProcedure konfigurieren

Set cmdDBComm.ActiveConnection = cnnDBConn

cmdDBComm.CommandText = strSQL

cmdDBComm.CommandType = adCmdStoredProc

Debug.Print cmdDBComm.CommandText

Obiges Debug.Print liefert dann folgendes: { call LEI.LEIS6100 }