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
 
 'Последний параметр: 0 - диалог для сохранения, 1 - открытия 
 
 'Вызов: 
 
Private Sub Кнопка0_Click()
 Dim a As WLIB_OFFICEGETFILENAMEINFO
 a.hwndOwner = Me.hWnd
 a.szFilter = "Access Files (*.MDB)|*.MDB|Access Files (*.MDE)|*.MDE|All Files (*.*)|*.*||"
 a.nFilterIndex =  0 
 MSAU_OfficeGetFileName a,  1 
 MsgBox a.szFile
End Sub