ник: ?.?.
Re: Имя рабочей группы? Перечисляет все группы текущего пользователя:
Dim gr As Group
For Each gr In DBEngine.Workspaces(0).Users(UserName).Groups
MsgBox gr.Name
Next gr
Переключить можно добавив ему нужную группу.
Но это можно сделать только в том случае, если юзер имеет права администратора, так как программа исполняется с его правами.
Поэтому нужно создать создать другой Workspace с правами администратора. Обычно это ваши права. И сделать все, что надо в этом сеансе работы. Права юзера переключать не придется.
Как создать другой Workspace? - читайте хелп по методу CreateWorkspace.