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

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

asp>>
' プロシージャ: Function
' 名前 : GetAppExecPath
' 機能 : アプリケーションの実行パスを取得する
' 引数 : なし
' 戻り値 : String
' 備考 : なし
Public Function GetAppExecPath() As String

GetAppExecPath = CurrentProject.Path & "\"

End Function
<<asp

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

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

asp>>
'C:\Documents and Settings\y_tsuda\My Documents
CurrentProject.Path
<<asp

を使います。

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

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

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

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