Programmaticaly Add user to secured dbase (1 Viewer)

[Smart]

Can anyone help please

How do you add a user to asecured database using vb

Thanks

 

[Dennisk]

According to the bible (Building applications with Access 97) you can add users to a group by appending the User object to the users collection of an existing group.

Sub CreateUser()
    dim ws as workspace
    dim grpVp as group, grpmanager as Group
    Dim usr as User
' Create a new group

    Set ws = DBEngine.Workspaces(0)
    Set grpVp = ws.CreateGroup("Testgroup","mmbht101193")
    ws.Groups.Append grpVp
    ws.groups.refresh

    ' create an instance of an existing user account, add the user
    ' to the new group, then remove the use
    
     Set user = grpVp.CreateUser("New User")
     grpVp.Users.Append usr
     grpVp.Users.Refresh

     Set grpManager = ws.Groups("managers")
     grpManager.Users.Delete "Test User"
     grpmanager.Users.Refresh
End Sub