'Enumerate the users belonging to a specific group
Public Sub EnumGroupUsers(strGroup As String)
    Dim wrk As DAO.Workspace
    Dim varUser As Variant

    Set wrk = DBEngine(0)

    Debug.Print "Users belonging to the '" & strGroup & "' group..."
    For Each varUser In wrk.Groups(strGroup).Users
        Debug.Print vbTab & varUser.Name
    Next varUser

    Set wrk = Nothing
End Sub