Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.CreatedUser
Dim UserNameTextBox As TextBox = DirectCast(CreateUserWizard1.CreateUserStep.FindControl("UserNameTextBox"), TextBox)
Dim DataSource As SqlDataSource = DirectCast(CreateUserWizard1.CreateUserStep.FindControl("InsertExtraInfo"), SqlDataSource)
Dim User As MembershipUser = Membership.GetUser(UserNameTextBox.Text)
Dim UserGUID As Object = User.ProviderUserKey
DataSource.InsertParameters.Add("UserId", UserGUID.ToString())
DataSource.Insert()
End Sub