Sub Page_Load(sender As Object, e As EventArgs)
Application("Database") = "mydatabase.mdb"
Application("UserID") = "myuser"
Application("Password") = "mypassword"
ViewApplication()
End Sub
Sub ViewApplication()
Me.lblText1.Text = "Database = " & Application("Database")
Me.lblText2.Text = "UserID = " & Application("UserID")
Me.lblText3.Text = "Password = " & Application("Password")
End Sub