ora il codice da usare è il seguente.
(Questo reimposta il collegamento come se andassi su gestione tabelle collegate)
Dim DBCorrente As DAO.Database
Dim Table As DAO.TableDef
Set DBCorrente = CurrentDb
Set Table = DBCorrente.TableDefs("Tabella1")
Table.Connect = ";DATABASE=" & Application.CurrentProject.Path & "\DB1.mdb"
Table.RefreshLink
Set Table = Nothing
DBCorrente.Close
Devi abilitare la libreria DAO
Nel mio esempio i 2 DB si trovano nella stessa cartella.
il file di origine è DB1.mdb la tabella collegata si chiama tabella1ed è collegata al suo omonimo del DB1.
Ciao