Public Function RefreshLinkTables() As Boolean
    On Error GoTo ErrorHandler
 Dim strConn As String, dbCurr As Object
    Dim tdf As Object
    Dim dbs As Object
    strConn = "ODBC;Driver=SQL Server;server=YY-PC;UID=sa;PWD=123;DATABASE=测试"
    Set dbCurr = DBEngine.Workspaces(0).OpenDatabase("OfficeCn", False, False, strConn)
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        If tdf.Connect <> "" Then
            tdf.Connect = strConn
            tdf.RefreshLink
        End If
    Next
    dbCurr.Close
    Set dbCurr = Nothing
RefreshLinkTables = True


ExitHere:
   
    DoCmd.SetWarnings False
    SysCmd acSysCmdRemoveMeter
    Set tdf = Nothing
    Set dbs = Nothing
    Exit Function
  
ErrorHandler:
        MsgBox Err.Number
        RefreshLinkTables = False
   Resume ExitHere
End Function