Function RefreshAttachments(NewLink as String)
Dim tdf as DAO.TableDef
For Each tdf In CurrentDb.TableDefs
If Len(tdf.Connect) Then
tdf.Connect = NewLink
If the remote database moves frequently between two locations, you could create a logical disk and change it's mapping as necessary, without beeing obliged to redefine the attachments in the front-end.