'列名称用中文
With Tables("用户授权_Table1")
.Cols("Yhm").Caption = "用户名" ' 指定列标题 *****这里都没有显示出来
.Cols("Bname").Caption = "表名称"
.DataTable.BuildHeader()
End With