Private Sub cmb_Click()
Dim fd As FileDialog 'библиорека Office подключена
Dim vrtSelectedItem As Variant, myPath, a
Set fd = Application.FileDialog(3)
   With fd
          .InitialFileName = "d:\excel\" 'путь для правого окна,по-умолчанию тек.каталог
                  If .Show = -1 Then
a = .SelectedItems(1)
           Else
           Exit Sub
          End If
     End With
 StartOfFile (a)
  Set fd = Nothing
End Sub

Option Compare Database
Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" _
                (ByVal Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
'====================================================================
Function StartOfFile(strNameFile As String)
Dim intResult As Integer
intResult = ShellExecute(Application.hWndAccessApp, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
If intResult = 31 Then
    MsgBox "Незарегестрированный тип файла"
End If
End Function