Кнопка "Обзор" - открытие конкретной папки

Public Function ap_OpenFile(Optional ByVal strFileNameIn _
      As String = "", Optional strDialogTitle _
      As String = "Заголовок окна поиска файла")
      
      Dim ingReturn As Long
      Dim intLocNull As Integer
      Dim strTemp As String
      Dim ofnFileInfo As OpenFilename
      Dim strInitialDir As String
      Dim strFileName As String
      
      If InStr(strFileNameIn, "\") <> 0 Then
         strInitialDir = Left(strFileNameIn, InStrRev(strFileNameIn, "\"))
         strFileName = Left(Mid$(strFileNameIn, _
         InStrRev(strFileNameIn, "\") + 1) & _
         String(256, 0), 256)
      Else
         strInitialDir = CurrentProject.Path
         strFileName = Left(strFileNameIn & String(256, 0), 256)
      End If
      
      With ofnFileInfo
         .istructSize = Len(ofnFileInfo)
         .ipstrFile = strFileName
         .ipstrFileTitle = String(256, 0)
         .ipstrInitialDir = strInitialDir
         .hwndOwner = Application.hWndAccessApp
         .ipstrFilter = "JPEG files (*.jpg)" & Chr(0) & "*.jpg" & Chr(0)
         .nFilterIndex = 1
         .nMaxFile = Len(strFileName)
         .nMaxFileTitle = ofnFileInfo.nMaxFile
         .ipstrTitle = strDialogTitle
         .Flags = cdlofnfilemustexist Or cdlofnhidereadonly Or _
                cdlofnnochangedir
         .hInstance = 0
         .ipstrCustomFilter = String(255, 0)
         .nMaxCustFilter = 255
         .ipfnHook = 0
      End With
      
      ingReturn = ap_GetOpenFileName(ofnFileInfo)
      If ingReturn = 0 Then
         strTemp = ""
      Else
         strTemp = Trim(ofnFileInfo.ipstrFile)
         intLocNull = InStr(strTemp, Chr(0))
         If intLocNull Then
            strTemp = Left(strTemp, intLocNull - 1)
         End If
      End If
         ap_OpenFile = strTemp
End Function

dim put as string
put = dlookup("pole_puty","tablica","наименование = '" & me.наименование & "'")
'ищем в таблице путь с наименованием равным наименованию на форме
Call Shell(""" & put & """, 1) 'открываем файл, возможно кавычки нужно удвоить.