Percorso del database corrente

Public Function PathCorrente() As String
   'Autore: Paolo Holzl
   'Restituisce: il percorso completo del database corrente
   PathCorrente = Left(CurrentDb.Name,Len(CurrentDb.Name)- _
   Len(Dir(CurrentDb.Name))) 
End Function