Module Not Found and Error 2507 1

[zevw]

I am trying to create a link in an external database through the following code suggested to me in a different thread.

Dim objAccess As Access.Application
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "C:\ForeignDb.mdb"
objAccess.DoCmd.TransferDatabase acLink, , CurrentDB.Name, , "Table1", "Table1"
objAccess.DoCmd.TransferDatabase acLink, , CurrentDB.Name, , "Table2", "Table2"
objAccess.Quit
Set objAccess = Nothing

When reaching this line of code

objAccess.OpenCurrentDatabase "C:\ForeignDb.mdb"

I get the following error

"Module Not Found"

I then tried creating a link to a different Database, and I got past the above line of code. What is the matter with the ForeignDb.mdb database that it is giving me this message?

Once I got through that line by creating a link to a different database. I got through to the next line of code

objAccess.DoCmd.TransferDatabase acLink, , CurrentDb.Name, , "Table1", "Table1"

and I am gettting this error
Run-time Error '2507':

The type isn't an installed database type or doesn't support the operation you chose.

 

[zevw]

Because I am not going to be the one doing it. A user is going to run code to read information of that database.