Passing UserName to a Session Variable

I am trying to save the logged in User Name to a session variable so that it can be used to filter my database.
I have the following code which I think creates the session variable "UserLogin"  ...
Protected Sub Login1_Load(ByVal sender As Object, ByVal e As System.EventArgs) If User.Identity.Name <> "" Then Session("UserLogin") = User.Identity.Name Session("UserID") = Membership.GetUser(HttpContext.Current.User. _ Identity.Name).ProviderUserKey.ToString() End If End SubIf this is correct, w ...