If your database is not split then just add a control to your report and set
its control source to
=CurrentDb().Name
If you database is split into a front end and a backend then you will need
to get the connection string for the backend database.
=CurrentDb().TableDefs("NameOfTableInBackend").Connect
That might return something like the following.
;DATABASE=K:\Info Sys\spencer\EPSDT\EPSDT_BE_M.mdb
Which you could edit to strip off the ";DATABASE="
Mid(CurrentDb().TableDefs("NameOfTable").Connect,11)
--
John Spencer
Access MVP 2002-2005, 2007-2008
Center for Health Program Development and Management
University of Maryland Baltimore County
..