Tables

1.20 Riallegare tabelle utilizzando la libreria ADOX
  Antonio Ganci
La seguente funzione permette di modificare la directory a tutte le tabelle
collegate di un database, impostando come destinazione del collegamento la
cartella dove risiede il FE. Il codice si può adattare facilmente per
impostare una cartella diversa, modificando il valore della variabile Dir.
Il vantaggio di questo metodo è l'utilizzo della libreria ADOX presente in
Access 2000/XP al posto delle DAO.
Sub CollegaTabelle()
  Dim Catalogo As New ADOX.Catalog
  Dim Tabella As ADOX.Table
  Dim Prop As ADOX.Property
  Dim Dir As String

  Catalogo.ActiveConnection = CurrentProject.Connection
  Dir = CurrentProject.FullName
  Dir = Replace(Dir, "FE.mdb", "BE.mdb")

  For Each Tabella In Catalogo.Tables
    If Tabella.Type = "LINK" Then
      Set Prop = Tabella.Properties("Jet OLEDB:Link Datasource")
      Prop.Value = Dir
    End If
  Next Tabella

  Set Catalogo = Nothing
End Sub

Libreria da includere
Microsoft ADO Ext. 2.5 for DDL and Security

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.