Ruta actual

Con access 2000 y superiores, es tan sencillo como
Msgbox CurrentProject.Path
Con access97, es algo más complicado, y o dependes del nombre de la aplicación
(Como esto, si se llama db1.mdb)
msgbox(left(currentdb.name),instr(currentdb.name, "db1.mdb")
O bien haces un bucle para ir quitando caracteres desde el final del nombre hasta que encuentres el primer "\" en currentdb. Name
Por ejemplo:
Function vernombre()
Dim n As Integer
Dim x As String
Dim p As String
p = CurrentDb.Name
MsgBox p
For n = Len(p) To 1 Step -1
If Mid(p, n, 1) = "\" Then Exit For
Next
MsgBox Mid(p, 1, n - 1)
End Function