Access中如何用代码将表彻底隐藏？显示？

Private Sub Cmd_Tbl1_Click()'隐藏表函数(方法:值 = 1)   CurrentDb.TableDefs("表名称").Attributes = 1   Application.RefreshDatabaseWindowEnd SubPrivate Sub Cmd_Tbl3_Click()'显示隐藏表的函数(方法:值 = 0)   CurrentDb.TableDefs("表名称").Attributes = 0    Application.RefreshDatabaseWindowEnd Sub