Раньше работала и вот перестала. Не ругается и не работает. Просто программа перепрыгивает через нее и выполняется дальше (окно диалога функции, конечно же, не открывается)

В общем модуле запись такая:

Type WLIB_OFFICEGETFILENAMEINFO
hwndOwner As Long
szAppName As String * 255
szDlgTitle As String * 255
szOpenTitle As String * 255
szFile As String * 4096
szInitialDir As String * 255
szFilter As String * 255
nFilterIndex As Long
lView As Long
flags As Long
End Type

Declare Function MSAU_OfficeGetFileName Lib _
"msaccess.exe" Alias "#56" (gfni As _
WLIB_OFFICEGETFILENAMEINFO, ByVal fOpen As _
Integer) As Long

В модуле формы:

MSAU_OfficeGetFileName a, 0 0 - кнопка "сохранить", 1 - кнопка "открыть"


Проект откомпиллирован