/ Published in: VB.NET
URL: http://blog.loxotech.com/?p=67
Expand |
Embed | Plain Text
Dim externalDB as Database Dim tDef As TableDef Set externalDB = OpenDatabase("C:\path\to\your\database.accdb") For Each tDef In externalDB.TableDefs If tDef.Connect <> "" Then tDef.Connect = connectionString tDef.RefreshLink End If Next tDef externalDB.Close
You need to login to post a comment.
