不用代码，应该不可能，以下代码，仅供参考

以下代码，谨供参考

Dim dbs As Database
   Dim tbl As TableDef
   Dim strDes As String
   Dim ReLink As Boolean
   On Error Resume Next
  
   ReLink = False
   Set dbs = CurrentDb
   For Each tbl In CurrentDb.TableDefs '循环所有表
      If DCount("*", "MSysObjects", "[Name]='" & tbl.Name & "' And [Type]=6") > 0 Then '判断只有链接表才运行以下代码
         strDes = tbl.Properties("description").Value '取得当前表说明属性
         If Mid(strDes, 1, 1) <> "z" Then '如果说明属性第一个字母不为＂z＂
            'MsgBox strDes
            'MsgBox tbl.Name
            tbl.Connect = "ms access;PWD=" & Me.strfilepwd & ";DATABASE=" & Me.strfilename
            tbl.RefreshLink
          End If
      End If
    Next
    ReLink = True
    MsgBox "刷新成功！可以使用了，呵呵", vbInformation, "系统提示..."