'Enumerate the groups a specific user belongs to
Public Sub EnumUserGroups(strUser As String)
    Dim wrk As DAO.Workspace
    Dim varGroup As Variant

    Set wrk = DBEngine(0)

    Debug.Print "Groups to which user '" & strUser & "' belongs..."
    For Each varGroup In wrk.Users(strUser).Groups
        Debug.Print vbTab & varGroup.Name
    Next varGroup

    Set wrk = Nothing
End Sub