Accessデフォルトフォルダを自身のフォルダに変更

  ○デフォルトはマイドキュメント
  
  ①ネットワークフォルダに非対応
    ChDir CurrentProject.Path
  
  ②対応
    With CreateObject("WScript.Shell")
      .CurrentDirectory = CurrentProject.Path
    End With