When the db opens get the name of the computer and the full name and path of the file. Compare these with values stored in the VBA and exit if they don't match.
Computer name can be returned with:
CreateObject("wscript.network").ComputerName
The full path including the file name with:
CurrentProject.FullName