create  proc my_tmp
	@p0	int =  0 ,	@p1	int =  0 ,	@p2	int =  0 
as
set nocount on
declare @msg	nvarchar( 100 )

set @msg = '@p0 = '+convert(nvarchar,@p0)+'; @p1 = '+convert(nvarchar,@p1)+'; @p2 = '+convert(nvarchar,@p2)
raiserror (@msg,  16 ,  1 )

exec my_tmp @p2 =  10 , @p1 =  5 

Dim cmd
Dim conn
Dim rs
Dim ob_Parameter

	Set conn = Workarea.AdoConnection
	Set cmd = CreateObject("ADODB.Command")
	Set cmd.ActiveConnection = conn
	cmd.CommandText = "my_tmp"
	cmd.CommandType = adCmdStoredProc

	Set ob_Parameter = cmd.CreateParameter("@p2", adInteger, adParamInput)
	ob_Parameter.Value =  10 
	cmd.Parameters.Append ob_Parameter

	Set ob_Parameter = cmd.CreateParameter("@p1", adInteger, adParamInput)
	ob_Parameter.Value =  5 
	cmd.Parameters.Append ob_Parameter
	
	cmd.Execute

Set cmd = CreateObject("ADODB.Command")

cmd.NamedParameters = True