Мне нужно составить простенький реестр БД: список объектов, даты создания и изменения каждого объекта. База не текущая, а из другого mdb. Пишу такой код:

Dim dbsSource As DAO.Database
Dim doc As DAO.Document
...
Set dbsSource = OpenDatabase(txtSourcePath)
For Each doc In dbsSource.Containers("Forms").Documents
debug.print doc.LastUpdated, doc.DateCreated
Next doc

Остальные коллекции смотрю таким же макаром, и все, вроде, работает.
Я захожу в просматриваемую БД, меняю что-нибудь в форме, сохраняю ее и выхожу. Опять запускаю процедуру и вижу: LastUpdated осталась старой!
То есть вранье получается. Я так понимаю, что он берет ее из таблицы
MSysObjects. Почему-то и там дата изменения старая. А если я просто в окне БД смотрю свойства объекта, то там все правильно: Свойства\Изменен и правильная дата.
Как это преодолеть?

Refresh не помогает. Похоже, это действительно баг Аксеса 2000. Интересно,
а в Аксесе 2003 он тоже есть?