自动刷新本地链接表

    谢谢这位兄台，以下代码基本能解决，但只能刷新来自一个数据库的所有表，我需要解决的是来自多个数据库的链接表的刷新（因为数据多，把它拆成了多个数据库，一个数据库中又有多个表）。

Dim dbs As Database
    Dim tdf As TableDef    ' 循环处理此数据库的所有表。
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        ' 如果表有一个连接串，那么该表是一个链接表。
        If Len(tdf.Connect) > 0 Then
            tdf.Connect = ";DATABASE=" & strFileName & ";PWD=" + TablePassword
            Err = 0
            On Error Resume Next
            tdf.RefreshLink         ' 重新链接该表。
            If Err <> 0 Then
                RefreshLinks = False
                Exit Function
            End If
        End If
    Next tdf

    RefreshLinks = True        ' 完成重链接。