Several other people have asked similar questions but didn't get much response. I thought I'd try my luck.
The following code isn't working.
Dim dbs As Database, wsp As Workspace
Set wsp = DBEngine.Workspaces(0)
Set dbs = wsp.OpenDatabase("H:\Access Databases\Copyright\Copyright Search.mdb")...