creation role et ajout table sql server sur vb6

slt tt le monde
comment fait on pour cree un role et ajouter un table dans ce role sur vb6 ? et que dans ce table on peut pas faire une consultation

je cree mon role comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Private Sub Form_Load()
Dim serveur As SQLDMO.SQLServer
Dim role As SQLDMO.DatabaseRole
 
    Set serveur = New SQLDMO.SQLServer
    serveur.LoginSecure = True
    serveur.Connect "" & frmLogin.Text3 & "", "" & frmLogin.Text1 & "", "" & frmLogin.Text2 & ""
    Set role = New DatabaseRole
    role.Name = "Service entree"
    serveur.Databases("bibliotheque").DatabaseRoles.Add role
    serveur.Databases("bibliotheque").DatabaseRoles("Service entree").ListDatabasePermissions SQLDMOPriv_Select
end sub

merci d'avance