I parametersamlingen för objektet så kan man lägga en parameter med typen adParamReturnValue. Om man lägger den först så skall det bara vara att plocka upp den som vanligt efter execute.
with cmdObj
.parameters.Append .createparameter("RETURN_VALUE",adInteger,adParamReturnValue)
'övriga parametrar
.execute rows,,128
retv = .parameters("RETURN_VALUE")
end with