Количество запущенных приложений Access - VB

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

Не знаю, в тот ли форум пишу, поэтому заранее извиняюсь. Никак не могу понять, как средствами VB можно получить доступ к запущенным приложениям Access. То есть нужно получить имена открытых в них БД и количество приложений, по аналогии с рабочими книгами Excel или документами Word.

Решение задачи: «Количество запущенных приложений Access»

textual
                            Листинг программы 
                        
                            Dim a_app As Access.Application
Set a_app = GetObject(, "Access.Application")