Option Explicit
Call GetApplicationInfo

'==============================================================================
'Получить и вывести информацию о свойствах текущего приложения
'==============================================================================
Sub GetApplicationInfo()
    Dim curUser, dbName, dbType, curTime, dbMode, dbVersion, ArrayType, ArrayMode
    
    ' Заполняем массив наименований типов баз данных
    ArrayType = Array _
          ("Встроенная база данных", "Microsoft SQL Server", _
          "SQL Server Desktop Engine или SQL Server Express)", _
          "Oracle", "Interbase (Firebird)")
    ' Заполняем массив наименований режимов работы
    ArrayMode = Array _
          ("Standard", "Professional", "Server", _
          "Developer", "Client", "Administrator")   
 
    ' Получаем информацию, используя переменную ThisApplication
    Set curUser = ThisApplication.CurrentUser
    dbName = ThisApplication.DataBaseName
    dbType = ArrayType(ThisApplication.DataBaseType)
    curTime = ThisApplication.CurrentTime
    dbMode = ArrayMode(ThisApplication.Mode)
    dbVersion= ThisApplication.Version    
    
    ' Выводим информацию о текущем приложении
    Msgbox "Текущий пользователь: " & curUser.SysName & Chr(13) & _
           "Текущее время: " & curTime & Chr(13) & _
           "Имя базы данных: " & dbName & Chr(13) & _
           "Тип базы данных: " & dbType & Chr(13) & _
           "Режим работы: " & dbMode & Chr(13) & _
           "Версия: " & dbVersion , vbInformation, "Свойства приложения"
End Sub
'==============================================================================