''' <summary>  
    ''' No Metadata Documentation available.  
    ''' </summary>  
    ''' <param name="userName">No Metadata Documentation available.</param>  
    ''' <param name="userPassword">No Metadata Documentation available.</param>  
    ''' <param name="shopkeeperID">No Metadata Documentation available.</param>  
    Public Function IsValidUser(userName As Global.System.String, userPassword As Global.System.String) As ObjectResult(Of Nullable(Of Global.System.Int32))  
        Dim userNameParameter As ObjectParameter  
        If (userName IsNot Nothing)  
            userNameParameter = New ObjectParameter("userName", userName)  
        Else  
            userNameParameter = New ObjectParameter("userName", GetType(Global.System.String))  
        End If  
  
        Dim userPasswordParameter As ObjectParameter  
        If (userPassword IsNot Nothing)  
            userPasswordParameter = New ObjectParameter("userPassword", userPassword)  
        Else  
            userPasswordParameter = New ObjectParameter("userPassword", GetType(Global.System.String))  
        End If  
  
  
        Return MyBase.ExecuteFunction(Of Nullable(Of Global.System.Int32))("IsValidUser", userNameParameter, userPasswordParameter)  
  
    End Function