Dim cmdTMP As ADODB.Command
Dim prmP As ADODB.Parameter
DIM x_НовыйКод as Long

Set cmdTMP = New ADODB.Command
Set cmdTMP.ActiveConnection = x_ТекущееСоединение
cmdTMP.CommandType = adCmdStoredProc
cmdTMP.CommandText = "up_ПользовательскаяПроцедура"


Set prmP = cmdTMP.CreateParameter("НовыйКод", adInteger, adParamOutput)
cmdTMP.Parameters.Append prmP

cmdTMP.Execute
If IsNull(cmdTMP(0)) Then
Err.Raise 9999, , "АШИПКА!"
Else
x_НовыйКод = cmdTMP(0)
End If