Public Sub ListGroupsForUser()
Dim myWorksheetNew As Workspace
Dim grpUG As Group ' user group
Set myWorksheetNew = DBEngine.CreateWorkspace("AdminWorkspace", "Admin", "")
Debug.Print "Groups for user " & CurrentUser() & " are:"
For Each grpUG In myWorksheetNew.Users(CurrentUser()).Groups
Debug.Print grpUG.Name
Next
myWorksheetNew.Close
Set myWorksheetNew = Nothing
Set grpUG = Nothing
End Sub