Try to open the database in exclusive mode and install an error handler:

set db = opendatabase("Db.mdb", True)

If it fails someone has opened the database.