Protected Sub SqlDataSource1_inserting(ByVal sender As Object, ByVal e As SqlDataSourceCommandEventArgs) Handles SqlDataSource1.Inserting
Dim MemUser As MembershipUser
MemUser = Membership.GetUser()
UserID.Text = MemUser.ProviderUserKey.ToString()
e.Command.Parameters("@UserId").Value = MemUser.ProviderUserKey.ToString()
View Complete Post