First link a
copy of the file, renamed as accdb (or mdb).
Then run code to relink to the table(s) from the
original file:
Public Function Relink()
Dim Database As DAO.Database
Dim Table As DAO.TableDef
Dim Connect As String
Set Database = CurrentDb
Set Table = Database.TableDefs("SomeTable")
Connect = Table.Connect
Debug.Print Connect
Connect = Replace(Connect, ".accdb", ".dvprj")
Debug.Print Connect
Table.Connect = Connect
Table.RefreshLink
Debug.Print Table.Connect
End Function