Stored Procedure return value

Hi

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

VB Code:

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