SQL = _
"INSERT INTO gdpr_composants (id, nom, basicat, ocarto, traitement) " & _
"VALUES (gdpr_seq.nextval, TRIM(?), UPPER(?), LPAD(?,5,'0'), TRIM(?))" & _
"RETURNING id INTO ?"
        Set OraCmd2 = New ADODB.Command
        With OraCmd2
          .CommandText = SQL
          .CommandType = adCmdText
          .ActiveConnection = OraCon
          .Parameters.Append .CreateParameter("nom", adVarChar, adParamInput, 80, CompName)
          .Parameters.Append .CreateParameter("basicat", adVarChar, adParamInput, 3, CodeBasicat)
          .Parameters.Append .CreateParameter("ocarto", adVarChar, adParamInput, 5, CodeOC)
          .Parameters.Append .CreateParameter("traitement", adVarChar, adParamInput, 500, TraitName)
          .Parameters.Append .CreateParameter("outid", adInteger, adParamOutput, 10, CompId)
'          .Execute Nb, Options:=adExecuteNoRecords
          Set OraReturn = .Execute
        End With
'        CompId = OraReturn("outid")

pdby1>
pdby1> var v1 number
pdby1> insert into dept values((select max(deptno)+10 from dept),null,null) returning deptno into :v1;

1 row created.

pdby1> print v1

        V1
----------
        50

pdby1>