Problem with login validation and stored procedure

--- working stored procedure (sp_loginvalidator)----
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
 
 
 
 
ALTER PROCEDURE [dbo].[sp_loginvalidator]
(@UserID nVarChar(50),
@Password nVarChar(50))
AS
RETURN
( 
SELECT Count(*)
FROM
Dbo.tblsecurity
WHERE UserID = @UserID AND Password = @Password
)
 
**** Return Value = 1 0r 0 ****
 
---- New stored procedure that works in sql but not in asp.net (security_validation)----
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
 
ALTER procedure [dbo].[security_validation] (
@userid nvarchar(25),
@password nvarchar(50),
@ruserid nvarchar(25) output,
@raccessid decimal(10, 0) output,
@remail nvarchar(65)output
) as
DECLARE @return_value int
select @userid = UserID, @password = Password, @ruserid = @userid, @raccessid = AccessID, @remail = email
From dbo.tblSecurity
Where UserID = @userid and Password = @password
if @@rowcount > 0
	Begin
	Select @return_value = 1
	return @return_value	
	end
else
	begin
	select @return_value = 0
	return @return_value
	end
 
**** this returns @ruserid = userid, @raccessid = accessid, @remail = email & Return Value = 1 or 0 ****
 
---- behind the scene code in Visual Basics ----
Sub btnLogin_OnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        If Page.IsValid Then    '   ||||| Meaning the Control Validation was successful!
            '   |||||   Connect to Database for User Validation |||||
            If DBConnection(txtuserid.Text.Trim(), txtpassword.Text.Trim()) Then
                Session("Logged_IN") = "Yes"    '   |||||   Use to Validate on other pages in the application                
 
                Dim aCookie As New HttpCookie("fud_info")
                aCookie.Values("userid") = txtuserid.Text
                'aCookie.Values("userid") = "@ruserid"
                'aCookie.Values("accessid") = "@raccessid"
                'aCookie.Values("email") = "@remail"
                'aCookie.Values("lastVisit") = DateTime.Now.ToString()
                aCookie.Expires = DateTime.Now.AddHours(4)
                Response.Cookies.Add(aCookie)
                Response.Redirect("default.aspx")
            Else
                Response.Redirect("failed.aspx")
 
                '   |||||   Credentials are Invalid
                '   |||||   Increment the LoginCount (attempts)
                'Session("LoginCount") = CInt(Session("LoginCount")) + 1
                ' ||||| Determine the Number of Tries
                'If Session("LoginCount").Equals(intMaxLoginAttempts) Then
                '	Response.Redirect("Denied.aspx")
                'End If
 
                'If CInt(Session("Num_of_Tries")) > 2 Then ' ||||| If Exceeds then Deny!
                '	Response.Redirect("Denied.aspx")
                'End If
 
            End If
        End If
    End Sub
 
Function DBConnection(ByVal struserid As String, ByVal strpassword As String) As Boolean
        '<sumamry>
        '   |||||   Declare Required Variables
        ' ||||| Access appSettings of Web.Config for Connection String (Constant)
        '</summary>
        '   |||||   This is the Connections Object for an SQL DB
        Dim MyConn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("fss_caoConnectionString").ConnectionString)
 
        '<sumamry>
        '   |||||   Create a OleDb Command Object
        '   |||||   Pass in Stored procedure
        '   |||||   Set CommandType to Stored Procedure
        '</summary>
 
        ' ||||| To Access a Stored Procedure in SQL Server - Requires a Command Object
        Dim MyCmd As New SqlCommand("sp_loginvalidator", MyConn) ' |||| this is the line I change the stored procedure name. This name is the one that works.
 
        MyCmd.CommandType = CommandType.StoredProcedure
        '   |||||   Create Parameter Objects for values passed in
        Dim objParam1, objParam2 As SqlParameter
        '   |||||   Create a parameter to store your Return Value from the Stored Procedure
        Dim objReturnParam As SqlParameter
        'Dim objReturnParam1 As SqlParameter
        'Dim objReturnParam2 As SqlParameter
        'Dim objReturnparam3 As SqlParameter
        '<sumamry>
        '   |||||   Add the parameters to the parameters collection of the
        ' ||||| command object, and set their datatypes (OleDbType in this case)
        '</summary> 
        objParam1 = MyCmd.Parameters.Add("@userid", SqlDbType.NVarChar)
        objParam2 = MyCmd.Parameters.Add("@password", SqlDbType.NVarChar)
        objReturnParam = MyCmd.Parameters.Add("@return_value", SqlDbType.Int)
        'objReturnParam1 = MyCmd.Parameters.Add("@ruserid", SqlDbType.NVarChar)
        'objReturnParam2 = MyCmd.Parameters.Add("@raccessid", SqlDbType.NVarChar)
        'objReturnparam3 = MyCmd.Parameters.Add("@remail", SqlDbType.NVarChar)
 
        '   |||||   Set the direction of the parameters...input, output, etc
        objParam1.Direction = ParameterDirection.Input
        objParam2.Direction = ParameterDirection.Input
        objReturnParam.Direction = ParameterDirection.ReturnValue   '   Note RETURNVALUE
        'objReturnParam1.Direction = ParameterDirection.ReturnValue   '   Note RETURNVALUE
        'objReturnParam2.Direction = ParameterDirection.ReturnValue   '   Note RETURNVALUE
        'objReturnparam3.Direction = ParameterDirection.ReturnValue   '   Note RETURNVALUE
        '' ||||| Set the value(s) of the parameters to the respective source controls
        objParam1.Value = txtuserid.Text
        objParam2.Value = txtpassword.Text
 
        '   |||||   Try, catch block!
        Try
            '   |||||   Check if Connection to DB is already open, if not, then open a connection
            If MyConn.State = ConnectionState.Closed Then
                '   |||||   DB not already Open...so open it
                MyConn.Open()
                MyCmd.ExecuteNonQuery()
            End If
            '   |||||   Was the return value greater than 0 ???
            If objReturnParam.Value = 0 Then
                Return False
            Else
                Return True
            End If
 
            '   |||||   Close the Connection Closes with it
            MyConn.Close()
 
 
        Catch ex As Exception
            lblMessage2.Text = "Error Connecting to Database!"
        End Try
 
 
    End Function