creating a user with personalization

[khairulfnd]

i m trying to create a user and add a role to the user and also add its personalization like first name and last name, all at the same time but there is a problem with the personalization.
Since on the point i create the user its anonymous but is there a way to get the user from the database so that when i add the personalization it is not anonymous.

This is my codes in VB

Public Sub CreateUser_OnClick(ByVal sender As Object, ByVal args As EventArgs) Handles CreateUserButton.Click
Dim result As MembershipCreateStatus
Try

' Create new user.

Dim newUser As MembershipUser

newUser = Membership.CreateUser( _
UsernameTextbox.Text, _
PasswordTextbox.Text, _
EmailTextbox.Text)

Roles.AddUserToRole(UsernameTextbox.Text, DropDownList1.SelectedValue)

Profile.FirstName = TextBox1.Text
Profile.LastName = TextBox2.Text
Profile.ApproveLimit = TextBox3.Text
Profile.Status = TextBox4.Text

Response.Redirect("login.aspx")


Catch e As MembershipCreateUserException
Msg.Text = GetErrorMessage(e.StatusCode)
Catch e As HttpException
Msg.Text = e.Message
End Try
End Sub