CREATE PROCEDURE  proc_Insert2Inv  список_входных_параметров	
AS
set nocount on
Declare @ Id_inv int
set id_inv= 0   /* код ошибки*/ 
insert Inv (...) values(...)
 /*если Id_inv в  inv  не IDENITY ,то д.б
 select @Id_inv=max(Id_inv) from inv  
 select @Id_inv= @Id_inv+1
 insert Inv (...) values(...)
*/ 
if @@Error= 0   /*ошибок при инсерте не было */ 
    select @Id_inv=max(Id_inv) from inv 
 --можно и  select @Id_inv=@@IDENITY  
 
return @id_inv

CREATE PROCEDURE  proc_Insert2InvRow  список_входных_параметров	
AS
set nocount on
insert InvRow (...) values(...)

if @@Error != 0  /*ошибкa /
     raiserror('Error_message', 16 , 1 )

sub Insert2inv ()
 Dim cmd As ADODB.Command
 Dim prm As ADODB.Parameter
 dim Id_inv as integer
On Error GoTo ErrorHandler
Set cmd = New ADODB.Command
With cmd
    .ActiveConnection = 
    .CommandText =  "proc_Insert2Inv" 
    .CommandType = adCmdStoredProc
    Set prm = .CreateParameter( "ID_inv" , adInteger, adParamReturnValue)
    .Parameters.Append prm
    Set prm = .CreateParameter(...)
    .Parameters.Append prm
'таким образом создаются все параметры для proc_Insert2Inv
...........................
    .Execute , , adExecuteNoRecords
     Id_inv  = .Parameters("ID_inv") 'получаем значение возвращаемое ХР
End With
Set prm = Nothing
Set cmd = Nothing
insert2InvRow Id_inv  'вызываем подпрограмму для внесения записей в InvRow
end sub