Salut,
Définit comme cela un type dans un module (c'est un exemple) :
' Enum pour autoriser certaine parties du logiciel
' par rapport aux droits utilisateur
Public Enum SecurityLevel
LevelVisiteur = 1
LevelMembre = 2
LevelAdmin = 3
End Enum
Après partons du principe que pour afficher une form tu as un bouton et que dans ta base de donnée tu définit et récupère le niveau(autorisation qui correspond à la variable : Var_Droits)t dans celui-ci il y aurai le code suivant
If Var_Droits = LevelMembre Or Var_Droits = LevelVisiteur Then
' Affichage
DisplayError Me.hwnd, "Accés refusé, vous n'avez pas les droits !", _
"Information utilisateur", _
vbInformation Or vbOKOnly, False
' On sort
Exit Sub
End If
C'est-à-dire, que seul un Admin peut passer cette condition....
Compris ?
A+
Exploreur
Linux a un noyau, Windows un pépin 
Un jeu en flash sympa...? Voir
iciSi vous voulez vous inscrire
mettez c