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

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)