Dim Props As ADOX.Properties
Props = Tbl.Properties ' zuerst die liste der Eigenschaften holen
 
Dim PropDS As ADOX.Property
 
PropDS = Props.Item("Jet OLEDB:Link Datasource") ' dann einen einzelnen 
' rauspicken
PropDS.Value = Database ' und beschreiben
 
Props.Refresh() ' dann die Collection Refreshen
 
' und dann müsste es beim table object so was wie ... geben
Table.Refresh()