如何获得链接表的路径？？？？？？？

zxp

如何获得这两个链接表的路径，即括号中的部分！！
请大虾教点一下！！！！！！

zxp

求救啊！版主大人！

zxp

5555555555555555555555555555！为什么没人帮我啊！

prince

我试出来了，但我不知怎么跟你说啊！

prince

[路径]=DLookUp("database","msysobjects","foreignname='" & [表名] & "'")

李寻欢

我的方法比较笨：（，要引用ADOX
Function LinkPath(tabName As String) As String
    Dim catDB   As ADOX.Catalog
    Dim tblLink As ADOX.Table
    Dim i As Integer
    Set catDB = New ADOX.Catalog
    catDB.ActiveConnection = CurrentProject.Connection
   
    Set tblLink = catDB.Tables(tabName)
    LinkPath = tblLink.Properties("Jet OLEDBink Datasource")
    Set tblLink = Nothing
    Set catDB = Nothing
End Function