ruta de la base de datos activa acces 97

Hola que tal.
Querria saber como guardar en una cadena la ruta de la base de datos activa.
Creo que en acces 2000 poniendo algo asi como: ruta= CurrentProject.path asigna a ruta la ruta de acceso a la base sin el ultimo \
Pues querria intentar hacer esto con acces 97. el problema es que creoq ue es de la libreria de acces 2000
Bueno si alguien sabe como hacerlo espero su respuesta.
Un saludo muchas gracias

Muchas gracias
lo he modificado un poquitin para ver si lo entendia
pero me has abierto los ojos.
te pongo el codigo que me queda al final
Function ruta()
Dim rutabase As String, i As Integer
rutabase = CurrentDb().Name
i = Len(rutabase)
While i > 0 And Mid(rutabase, i, 1) <> "\"
i = i - 1
Wend
If i = 0 Then
MsgBox "Error al generar la ruta de acceso"
Else
ruta = Left(rutabase, i)
End If

End Function

si se te ocurre alguna cosa comentamela
Muchas gracias
Un salduo