If you want the path and the name of the current database, then use:
CurrentDb.Name
If you want just the name of the current database, then use:
Dir(CurrentDb.Name)
Or if you only want the path to the current database, then use:
Left(CurrentDb.Name,Len(CurrentDb.Name)-Len(Dir(CurrentDb.Name)))
HTH