......
cmd.CoomandText =  "YourSP" 
set prm  = new adodb.parametr
set prm = cmd.CreateParametr( "name" ,adInteger,adParamInput,,variable)
cmd.Parametr.Append prm
............

create procedure tra
(
 @one int,
 @two int output,
....................
 @ten nvarchar( 50 ) output
)as
begin
 declare @ret int
...............
 set @ret = @@error
 return @ret
end

dim prm as adodb.parametr
set cmd = new adodb.Command
set cmd.ActiveConnection = ......
cmd.CommandType = adStoredProc
cmd.CommandText =  "tra" 
set prm = cmd.CreateParametr( "ret" ,adInteger,adparamReturnValue)
cmd.Parametr.Apend prm
set prm = cmd.CreateParametr( "one" ,adInteger,adparamInput,,variable/value)
cmd.Parametr.Apend prm
set prm = cmd.CreateParametr( "two" ,adInteger,adparamOutput)
cmd.Parametr.Apend prm
.....................................
set prm = cmd.CreateParametr( "ten" ,adInteger,adparamOutput, 50 )
cmd.Parametr.Apend prm
cmd.Execute
yourIntvariable1 = cmb.Parametr( "ret" ).value
yourIntvariable2 = cmb.Parametr( "two" ).value
.................................................
yourStringvariable = cmb.Parametr( "ten" ).value

Set prm1 = cmd.CreateParameter( "@cn_reg_user" , adVarChar, adParamInput,  4 ,  "GVI" ) 

Set prm1 = cmd.CreateParameter( "cn_reg_user" , adVarChar, adParamInput,  4 ,  "GVI" ) 

ALTER  procedure A
as 
begin
 select top  10  * from Razdel 
end

Dim fso
  Dim a
  Dim str As String
  str =  ""
  Set cmd = New ADODB.Command
  Set cmd.ActiveConnection = CurrentProject.Connection
  Set fso = CreateObject(" Scripting.FileSystemObject ")
  Set a = fso.CreateTextFile(" T:\TEST\firma.txt ", True, True)
  cmd.CommandType = adCmdStoredProc
  
  cmd.CommandText = " a "
  Set rst = cmd.Execute
  If Not rst.EOF Then rst.MoveFirst
    
     While Not rst.EOF
       str = " insert into firma(id,name)values( " & " '" & rst.Fields(0).Value & "' " & " , " & rst.Fields(1 ).Value & ") "
       a.WriteLine str
       str = "  "

       rst.MoveNext
     Wend
     rst.Close
     a.Close
     MsgBox " Hello File"
     Set cmd = Nothing
     Set fso = Nothing
     Set rst = Nothing