Dim Usuario As String
Dim Grupo   As String
Dim X As Integer

Usuario = DBEngine.Workspaces(0).UserName
MsgBox Usuario
For X = 0 To DBEngine.Workspaces(0).Users(Usuario).Groups.Count - 1
    Grupo = DBEngine.Workspaces(0).Users(Usuario).Groups(X).Name
    MsgBox Grupo
Next X