Stored Procedure return value

[Deepak Sakpal]

Hi

I am using following code to execute a stored procedure. How can i get the return value returned by the procedure.

Dim cmd As New ADODB.Command()
                Dim prm0 As ADODB.Parameter, prm1 As ADODB.Parameter, prm2 As ADODB.Parameter
                Dim prm3 As ADODB.Parameter, prm4 As ADODB.Parameter, prm5 As ADODB.Parameter
 
                cmd.ActiveConnection = objConn
                cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
                '// CREATE PAREMETERS
                prm0 = cmd.CreateParameter("TicketNo", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamInput)
                cmd.Parameters.Append(prm0)
 
                prm1 = cmd.CreateParameter("AgentID", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamInput)
                cmd.Parameters.Append(prm1)
 
                prm2 = cmd.CreateParameter("LottoNameID", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamInput)
                cmd.Parameters.Append(prm2)
 
                prm3 = cmd.CreateParameter("NoOfTickets", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamInput)
                cmd.Parameters.Append(prm3)
 
                prm4 = cmd.CreateParameter("StartNo", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamInputOutput)
                cmd.Parameters.Append(prm4)
 
                prm5 = cmd.CreateParameter("EndNo", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamInputOutput)
                cmd.Parameters.Append(prm5)
                '//
                cmd.CommandText = "TicketTrns0"
                prm0.Value = iTicketNo
                prm1.Value = iAgentID
                prm2.Value = iLotteryID
                prm3.Value = iNoOfTickets(0)
                prm4.Value = iStartNo / 100
                prm5.Value = iEndNo / 100
                cmd.Execute()
                iReturnStartNo(0) = CInt(cmd.Parameters("StartNo").Value & "00")
                iReturnEndNo(0) = CInt(cmd.Parameters("EndNo").Value & "00")
                cmd = Nothing