Как програмно вызвать из ACCESS стандартное окно WINDOWS для открытия файла?

Option Compare Database
Option Explicit
Private Const OFN_HIDEREADONLY = &H4, OFN_FILEMUSTEXIST = &H1000
Private Declare Function GetOpenFileName Lib 'comdlg32.dll' Alias _
         'GetOpenFileNameA' (pOpenfilename As OPENFILENAME) As Long
       Private Type OPENFILENAME
         lStructSize As Long
         hwndOwner As Long
         hInstance As Long
         lpstrFilter As String
         lpstrCustomFilter As String
         nMaxCustFilter As Long
         nFilterIndex As Long
         lpstrFile As String
         nMaxFile As Long
         lpstrFileTitle As String
         nMaxFileTitle As Long
         lpstrInitialDir As String
         lpstrTitle As String
         flags As Long
         nFileOffset As Integer
         nFileExtension As Integer
         lpstrDefExt As String
         lCustData As Long
         lpfnHook As Long
         lpTemplateName As String
       End Type
 
 
 
Private Sub cmdOpenFile_Click()
       Dim OpenFile As OPENFILENAME
         Dim lReturn As Long
         Dim sFilter As String
         Dim dbsCurrent As Database
         
         Set dbsCurrent = CurrentDb
         
         OpenFile.lStructSize = Len(OpenFile)
         OpenFile.hwndOwner = Me.Hwnd
         'OpenFile.hInstance = Application.hInstance
         sFilter = 'Базы данных Access (*.mdb)' & Chr(0) & '*.mdb' & Chr(0) & _
                   'Файлы MDE (*.mde)' & Chr(0) & '*.mde' & Chr(0)
         OpenFile.lpstrFilter = sFilter
         OpenFile.nFilterIndex = 1
         OpenFile.lpstrFile = String(257, 0)
         OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
         OpenFile.lpstrFileTitle = OpenFile.lpstrFile
         OpenFile.nMaxFileTitle = OpenFile.nMaxFile
         OpenFile.lpstrInitialDir = Left(dbsCurrent.name, Len(dbsCurrent.name) - Len(Dir(dbsCurrent.name)))
         OpenFile.lpstrTitle = 'Выбор файла-источника данных'
         OpenFile.flags = OFN_FILEMUSTEXIST + OFN_HIDEREADONLY
         lReturn = GetOpenFileName(OpenFile)
         If lReturn = 0 Then
            'MsgBox 'The User pressed the Cancel Button'
         Else
            txtPathToOldVersion.SetFocus
            txtPathToOldVersion.Text = Trim(OpenFile.lpstrFile)
            'MsgBox 'The user Chose ' & Trim(OpenFile.lpstrFile)
         End If
         
    Set dbsCurrent = Nothing
End Sub