The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Sub RefreshClientLinkedTables() Dim catDB As ADOX.Catalog Dim tblLink As ADOX.Table ' Open a Catalog object on the database in which to refresh links. catDB = New ADOX.Catalog catDB.ActiveConnection = OLEConn 'connectionString For Each tblLink In catDB.Tables ' Check to make sure table is a linked table. If tblLink.Type = "LINK" Then tblLink.Properties("Jet OLEDB:Link Datasource").Value = True 'SQLConn.ConnectionString End If Next catDB = Nothing tblLink = Nothing End Sub