刷新所有链接表:
Public Sub LinkTableReflash()
    Dim dbs As DAO.Database
    Set dbs = CurrentDb
    Dim tdf As DAO.TableDef
    Dim NewDb As String
    Dim strPassword As String
    strPassword = "123456"
    NewDb = "C:\Users\HP4421S\Documents\罗斯文_be.accdb"
    For Each tdf In CurrentDb.TableDefs
'        If tdf.Attributes = dbAttachedTable Then
'            DoCmd.DeleteObject acTable, tdf.Name
'        End If
        If tdf.Attributes = dbAttachedTable Then
            dbs.TableDefs(tdf.Name).Connect = "MS Access;PWD=" & strPassword & ";" & "DATABASE=" & NewDb
            dbs.TableDefs(tdf.Name).RefreshLink         ' Relink the table.
        End If
    Next tdf
End Sub