Left(CurrentDb().Name, Len(CurrentDb().Name) - Len(Dir(CurrentDb().Name)))
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users -
http://allenbrowne.com/tips.html
Reply to the newsgroup. (Email address has spurious "_SpamTrap")
"Vyyk Drago" <(E-Mail Removed)> wrote in message
news:105601c35820$c94b9f40$(E-Mail Removed)...
> I have a very simple databse that is not running over a
> network or anything. How can I programmatically retrieve
> the Path of the database with VBA?