/ Published in: VB.NET
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
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
URL: http://blog.loxotech.com/?p=67