Simple but robust web based file management system including user authentication

Public Class Login
    Inherits BasePage

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents lblCurrentUserName As System.Web.UI.WebControls.Label
    Protected WithEvents btnLogout As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Persist As System.Web.UI.WebControls.CheckBox
    Protected WithEvents btnLogon As System.Web.UI.WebControls.Button
    Protected WithEvents Msg As System.Web.UI.WebControls.Label
    Protected WithEvents tblLogOut As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents tblLogon As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents txtUserName As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtUserPassword As System.Web.UI.WebControls.TextBox

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Request.IsAuthenticated Then
            tblLogOut.Visible = True
            tblLogon.Visible = False
            lblCurrentUserName.Text = User.UserName
        Else
            tblLogOut.Visible = False
            tblLogon.Visible = True
        End If
    End Sub

    Protected Sub btnLogon_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogon.Click
        Dim sUserName As String = txtUserName.Text
        Dim sPassword As String = txtUserPassword.Text
        Dim oUserInfo As WebDriveUserInfo = DataAccess.AuthenticateUser(sUserName, sPassword)
        If Not oUserInfo Is Nothing Then 
            Dim bIsPersistant As Boolean = Persist.Checked 
            Utility.SetUserInformation(oUserInfo, bIsPersistant)
        Else
            Msg.Text = "Invalid Credentials: Please try again."
        End If
    End Sub

    Protected Sub btnLogout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogout.Click
        Utility.SignOut()
        tblLogOut.Visible = False
        tblLogon.Visible = True
    End Sub
End Class