我是增加了一些外部表，作为预备表，表名称不变，如有需要增加表时，就把这个表的的“标题”改一下，增加的列通过代码是没有问题的，如果表名称改变后重启会出现加载错误的问题，所以我就想改表标题，而表名称不变来解决这个问题。这时系统菜单是没有的。

用以下3种代码都不对

            Dim Builder As New ADOXBuilder("统计")
            Builder.Open() \'打开ADOXBuilder
            With Builder.Tables("预备表1")
                For Each r As Row In Tables("增加表")   ‘增加表是窗口的table,只是为了确定预备表1的列及参数
                    If r("类型") = "字符" Then
                        .AddColumn(r("列名称") ,ADOXType.String, r("长度"))
                    ElseIf r("类型") = "日期" Then
                        .AddColumn(r("列名称") ,ADOXType.DateTime)
                    ElseIf r("类型") = "数字" Then
                        .AddColumn(r("列名称") ,ADOXType.Integer)
                    ElseIf r("类型") = "备注" Then
                        .AddColumn(r("列名称") ,ADOXType.Text)
                    Else
                        Exit For
                    End If
                Next
                .DeleteColumn("预备列")   \'删除预备列,因为最少要有一列
                .Caption = tx   \'重设表标题
            End With