ObjectDatasource: Can't get the value of output parameter in the Updated event

Updated Event:  called from OnUpdated in the ObjectDataSource:
 
  Protected Sub ods1_Updated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ObjectDataSourceStatusEventArgs) Handles ods1.Updated
 
        Dim intRetVal As Integer = -1
        Dim OutputParametersCount As Integer = -1
        OutputParametersCount = e.OutputParameters.Count
        lblUpdateResult.Text = CStr(OutputParametersCount)
 
        intRetVal = e.OutputParameters("ReportForThisOfficer").Value
 
        If intRetVal = 5 Then
            lblUpdateResult.Text = "Message #1 &"
        ElseIf intRetVal = 7 Then
            lblUpdateResult.Text = " Message #2 &."
        ElseIf intRetVal = 6 Then
             e.ExceptionHandled = True
            lblUpdateResult.Text = " Message #2 &."
 
        Else
            lblUpdateResult.Text = "The expected values not returned by SP"
        End If
    End Sub
 
ObjectDataSource:
 
<asp:ObjectDataSource 
    ID="ods1"
    onobjectcreating="OfficerIDObjectCreating"
    SelectMethod="GetOfficersForApproval"
    UpdateMethod="UpdateOfficersForApproval"
    OnUpdated="ods1_Updated"
    typename="TSSSp1A.clsTSSLevels1A"
     runat="server">
     
     <UpdateParameters>
     <asp:QueryStringParameter
       Name="OfficerID"      
       Type="Int32"/>       
     <asp:Parameter
        Name="CertificationNo"
        Type="Int32"/>  
     <asp:Parameter
        Name="UserType"
        Type="Int16"/>
       <asp:Parameter
         Name="Username"
         Type="String"/>
       <asp:Parameter
         Name="MyPassword"
         Type="String"/>
        <asp:Parameter
          Name="ReportForThisOfficer"
          Direction="Output"
          Type="Int32" />
     
     </UpdateParameters>
    
    </asp:ObjectDataSource>
 
Class Code: ( see ObjectDataSource (above) typename="TSSSp1A.clsTSSLevels1A")
 
       Public Function UpdateOfficersForApproval(ByVal OfficerID As Int32, ByVal CertificationNo As Int32, ByVal UserType As Int16, ByVal UserName As String, ByVal MyPassword As String, ByVal ReportForThisOfficer As Int32)
            Dim con As New SqlConnection(_conString)
            Dim cmd As New SqlCommand("UpdateOfficersForApproval", con) 
            cmd.CommandType = CommandType.StoredProcedure
 
            cmd.Parameters.AddWithValue("@OfficerID", OfficerID)
            cmd.Parameters.AddWithValue("@CertificationNo", CertificationNo)
            cmd.Parameters.AddWithValue("@UserType", UserType)
            cmd.Parameters.AddWithValue("@Username", UserName)
            cmd.Parameters.AddWithValue("@MyPassword", MyPassword)
            cmd.Parameters.Add("@ReportForThisOfficer", Data.SqlDbType.Int)
            cmd.Parameters("@ReportForThisOfficer").Direction = Data.ParameterDirection.Output
 
            con.Open()
            Return cmd.ExecuteReader(CommandBehavior.CloseConnection)           
        End Function
 
Stored Procedure:
 
ALTER PROCEDURE [dbo].[UpdateOfficersForApproval] 
	-- Add the parameters for the stored procedure here
	@OfficerID int,
    @CertificationNo int, 
	@UserType int,
	@Username varchar(75),
	@MyPassword varchar(50),
	@ReportForThisOfficer int OUTPUT
	
AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;
    IF EXISTS
    (
   SELECT * FROM Officer
   WHERE CertNo = @CertificationNo 
   AND UserType = 1  -- Another officer w/ same CertNo has been approved by the TSS Admin. 
 
  ) 
  BEGIN
	
       SET @ReportForThisOfficer = 5 -- means we have a duplicate Certification No and cannot do the update
	   RETURN 
 
  END 
	
  ELSE
 
  BEGIN
    
    		Update Officer 
		SET UserType=@UserType, Username=@Username, MyPassword=@MyPassword
		Where OfficerID=@OfficerID
		IF(@@ERROR <>0) GOTO ERR_HANDLER    
 
		SET @ReportForThisOfficer =  7  -- succesful update
		RETURN 
 
    END
  END
	  
    ERR_HANDLER:
	 PRINT 'An Error occurred in the Update'
 
      SET @ReportForThisOfficer = 6  -- MEANS ERROR OCCURED IN THE update
	  RETURN