'Enumerate all users and groups
Public Sub EnumUsersAndGroups()
    Dim wrk As DAO.Workspace
    Dim grp As DAO.Group
    Dim usr As DAO.User

    Set wrk = DBEngine(0)

    'Enumerate the groups
    Debug.Print "Groups."
    For Each grp In wrk.Groups
        Debug.Print vbTab & grp.Name
    Next grp

    'Enumerate the users
    Debug.Print "Users."
    For Each usr In wrk.Users
        Debug.Print vbTab & usr.Name
    Next usr

    Set grp = Nothing
    Set wrk = Nothing
End Sub