怎么样才能彻底隐藏链接表

'隐藏所有的表包括链接表
Function HiddenTable()
    Dim tabdef As DAO.TableDef
    For Each tabdef In CurrentDb.TableDefs
        If Left(tabdef.Name, 4) <> "msys" Then
            tabdef.Attributes = 1
        End If
    Next
    MsgBox "链接表已隐藏!", vbInformation, "提示:"
End Function

'显示所有的表包括链接表
Function DisplayTable()
    Dim tabdef As DAO.TableDef
    For Each tabdef In CurrentDb.TableDefs
        If Left(tabdef.Name, 4) <> "msys" Then
            tabdef.Attributes = 0
        End If
    Next
    MsgBox "链接表已显示!", vbInformation, "提示:"
End Function