Access - \'Path\' de aplicación en Access97

Gracias por tu atención,

me gustaría tener un código que me permita saber el \'path\'
donde se está ejecutando la base de datos.
Es para OFFICE 97

NO ME FUNCIONA
Application.CurrentProject.Path

NI ESTE OTRO
dim base as database
dim directorio as string
Set base = CurrentDb
directorio = Left$(base.Name, InStrRev(base.Name, \"\\\"))

¿Alguna sugerencia?

Muchas gracias

Hola

Prueba con esto

Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Load()
Dim sCurrent As String
sCurrent = String(255, 0)
GetCurrentDirectory 255, sCurrent
Me.Caption = sCurrent
'Me.Caption = Application.CurrentProject.Path
End Sub

El primer metodo que planteaste me funciona perfectamente, pero como cada cabeza es un mundo....quien sabe porque no te funciona.

Saludos