Public Overrides Sub AddUsersToRoles(ByVal usernames() As String, _
  ByVal roleNames() As String)
   
   For Each roleItem As String In roleNames
      If roleItem = "Administrator" Then
         Throw New _
            ProviderException("Nie masz wystarczających uprawnień, aby dodać" & _
               " użytkownika do roli Administrator")
      End If
   Next

   MyBase.AddUsersToRoles(usernames, roleNames)
End Sub
