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