Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Refreshing a Link

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