SQL/SPROC beginner: Loop logic problem

        Private Function VerifyCredentials(ByVal emailAddress As String, _
                                 ByVal password As String) As Boolean
            '<sumamry>
            '   |||||   Declare Required Variables
            ' ||||| Access appSettings of Web.Config for Connection String (Constant)
            '</summary>
            ' ||||| First is the Connection Object for an Access DB
            Dim MyConn As SqlConnection = New SqlConnection("server=ARIA;database=dushkinmedia;Integrated Security=SSPI")

            '<sumamry>
            '   |||||   Create a OleDb Command Object
            '   |||||   Pass in Stored procedure
            '   |||||   Set CommandType to Stored Procedure
            '</summary>

            ' ||||| To Access a Stored Procedure in Access - Requires a Command Object
            Dim MyCmd As New SqlCommand("sp_ValidateUser", MyConn)
            '   |||||   To Access a Stored Procedure in SQL Server - Requires a Command Object

            MyCmd.CommandType = CommandType.StoredProcedure
            '   |||||   Create Parameter Objects for values passed in
            Dim objParam1, objParam2 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("@emailAddress", SqlDbType.VarChar)
            objParam2 = MyCmd.Parameters.Add("@password", SqlDbType.VarChar)

            ''   |||||   Set the direction of the parameters...input, output, etc
            objParam1.Direction = ParameterDirection.Input
            objParam2.Direction = ParameterDirection.Input
            ''   |||||   Set the value(s) of the parameters to the passed in values
            objParam1.Value = _emailAddress.Text
            objParam2.Value = _password.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()
                End If

                '   |||||   Create OleDb Data Reader
                Dim objReader As SqlDataReader
                objReader = MyCmd.ExecuteReader(CommandBehavior.CloseConnection)
                '   |||||   Close the Reader and the Connection Closes with it

'PROBLEM HERE: NEVER ENTERS CONDITIONS OF WHILE LOOP
                While (objReader.Read())
                    If CStr(objReader.GetValue(0)) <> "1" Then
                        Return False
                        'lblMessage.Text = "Invalid Login!"
                    Else
                        objReader.Close()   '   |||||   Close the Connections & Reader
                        Return True
                    End If
                End While
            Catch ex As Exception
                lbTEMP.Text = ex.ToString 'tmp errorhandling
                Return False
                'lblMessage.Text = "Error Connecting to Database!"
            End Try

CREATE PROCEDURE dbo.sp_ValidateUser
         	(
         		@emailAddress VARCHAR(50) = NULL,
         		@password VARCHAR(50) = NULL,
         		@UserID INT = 0
         	)
             AS
         	SET @UserID = (SELECT COUNT(*) AS UserID
         	FROM dbo.Users
         	WHERE emailAddress = @emailAddress AND  password = @password)
         RETURN  @UserID

ALTER PROCEDURE dbo.sp_ValidateUser         	(
         		@emailAddress VARCHAR(50) = NULL,
         		@password VARCHAR(50) = NULL
         	)
	AS
			
         	SELECT dbo.Users.UserID
	FROM   dbo.Users
	WHERE (dbo.Users.emailAddress = @emailAddress) AND (dbo.Users.password = @Password)
         	

Original - VB.NET Code Private Function VerifyCredentials(ByVal emailAddress As String, ByVal password As String) As Boolean Dim MyConn As SqlConnection = New SqlConnection("server=ARIA;database=dushkinmedia;Integrated Security=SSPI") Dim MyCmd As New SqlCommand("dbo.sp_ValidateUser", MyConn) MyCmd.CommandType = CommandType.StoredProcedure Dim objParam1 As SqlParameter = MyCmd.Parameters.Add("@emailAddress", SqlDbType.VarChar) Dim objParam2 As SqlParameter = MyCmd.Parameters.Add("@password", SqlDbType.VarChar) objParam1.Value = _emailAddress.Text objParam2.Value = _password.Text Try MyConn.Open() Dim objReader As SqlDataReader objReader = MyCmd.ExecuteReader(CommandBehavior.CloseConnection) Return objReader.Read() objReader.Close() Catch ex As Exception lbTEMP.Text = ex.ToString 'tmp errorhandling Return False End Try End Function

Private Function VerifyCredentials(ByVal emailAddress As String, ByVal password As String) As Boolean
    Dim MyConn As SqlConnection = New SqlConnection("server=ARIA;database=dushkinmedia;Integrated Security=SSPI")
 
    Dim MyCmd As New SqlCommand("dbo.sp_ValidateUser", MyConn)
    MyCmd.CommandType = CommandType.StoredProcedure
    Dim objParam1 As SqlParameter = MyCmd.Parameters.Add("@emailAddress", SqlDbType.VarChar)
    Dim objParam2 As SqlParameter = MyCmd.Parameters.Add("@password", SqlDbType.VarChar)
 
    objParam1.Value = _emailAddress.Text
    objParam2.Value = _password.Text
    Try
        MyConn.Open()
        Dim objReader As SqlDataReader
        objReader = MyCmd.ExecuteReader(CommandBehavior.CloseConnection)
 
        Return objReader.Read()
        objReader.Close()
    Catch ex As Exception
        lbTEMP.Text = ex.ToString 'tmp errorhandling
        Return False
    End Try
End Function