Did you try using the linked table manager in tools/Database utilities, selecting all tables and the always prompt for new location tick box?
You can re-link the tables in VBA by using the link table command (DoCmd.RunCommand LinkTables) and then renaming all the tables as they were originally...