Dim usersInRole As String() = Roles.GetUsersInRole("HR_Base_Role")
Dim Myusers As New MembershipUserCollection
For Each UserName As String In usersInRole
Myusers.Add(Membership.GetUser(UserName))
Next
ComboBox2.DataSource = Myusers
上記のコードは、「指定されたメソッドはサポートされていません」をスローします。最初の行の例外。ここで何が間違っているのか誰でも知っていますか?