Как узнать имя пользователя в MDB файле? - VB

Формулировка задачи:

как узнать имя пользователя с правами администратора в MDB файле? Помогите ПЛЗ.

Решение задачи: «Как узнать имя пользователя в MDB файле?»

textual
                            Листинг программы 
                        

                            Sub AllPermissionsX()
 
    ' Ensure that the Microsoft Jet workgroup information 
    ' file is available.
    DBEngine.SystemDB = 'system.mdw'
 
    Dim dbsNorthwind As Database
    Dim ctrLoop As Container
 
    Set dbsNorthwind = OpenDatabase('Northwind.mdb')
 
    ' Enumerate Containers collection and display the current 
    ' user and the permissions set for that user.
    For Each ctrLoop In dbsNorthwind.Containers
        With ctrLoop
            Debug.Print 'Container: ' & .Name
            Debug.Print 'User: ' & .UserName
            Debug.Print '  Permissions: ' & .Permissions
            Debug.Print '  AllPermissions: ' & _
                .AllPermissions
        End With
    Next ctrLoop
 
    dbsNorthwind.Close
 
End Sub
                        