Sub RefreshLink() Dim cat As ADOX.Catalog Dim tdf As ADOX.Table Set cat = New ADOX.Catalog Set cat.ActiveConnection = CurrentProject.Connection Set tdf = cat.Tables("Employees") tdf.Properties("Jet OLEDB:Link Datasource") = _ strNewLocation End Sub