最近、僕が作ってる某学会のシステムのコードをそのままコピペ。

ここでは都合上「アプリケーションの実行パス」となっていますが、気にしないでください。

   1  ' プロシージャ: Function
   2  ' 名前        : GetAppExecPath
   3  ' 機能        : アプリケーションの実行パスを取得する
   4  ' 引数        : なし
   5  ' 戻り値      : String
   6  ' 備考        : なし
   7  Public Function GetAppExecPath() As String
   8      
   9      GetAppExecPath = CurrentProject.Path & "\"
  10  
  11  End Function

たとえば、開いているデータベースファイルが "C:\Documents and Settings\y_tsuda\My Documents\test.mdb" だとすると、"C:\Documents and Settings\y_tsuda\My Documents\" を返してくれます。

開いているデータベースがどこのディレクトリにあるのかを取得するには、

   1  'C:\Documents and Settings\y_tsuda\My Documents
   2  CurrentProject.Path 

を使います。

ただ、このままだと最後に \ がついていないので、

   1  'C:\Documents and Settings\y_tsuda\My Documents\ <- \が入る
   2  CurrentProject.Path & "\" 

としておくのがいろいろと都合がいいと思います。

この CurrentProject オブジェクトには現在開いているデータベースについての情報が入ってそう(名前からして・・・)なので、いろいろと見てみると面白いかもしれません。