主题：[求助]关于动态修改表结构

Dim tb1 As Table = Tables("列表")

Dim tr1 As Row = tb1.Current

Dim sr As String

For Each tc As Col In tb1.Cols

    For i As Integer = 0 To Tables("AAAB").Cols.Count -1

        If i = Tables("AAAB").Cols.Count - 1 AndAlso Tables("AAAB").Cols(i).Caption <> tc.Name Then

            sr = "AAAB" & Format(i+1,"00")

            Dim Builder As New ADOXBuilder("ERP")

            Builder.Open() '打开ADOXBuilder

            With Builder.Tables("AAAB")

                .AddColumn(sr,ADOXType.Text) '增加备注列

            End With

            Builder.Close() '关闭ADOXBuilder

            If DataTables.Contains("AAAB")  Then '如果表C已经加载

                DataTables.Unload("AAAB") '卸载表C

                Do While DataTables.Contains("AAAB")

                Loop

            End If

            If DataTables.Contains("AAAB") = False Then '如果表C没有加载

                DataTables.Load("AAAB") '加载表C

                With DataTables("AAAB")

                    .DataCols(sr).Caption = tc.Name

                    .Save(True)

                    .BuildHeader()

                End With

                Do While DataTables.Contains("AAAB") = False

                Loop

            End If

            Continue For

        End If

    Next

Next

老师，修改了之后，表重新加载后列标题就没有了，要如何实现永久性的添加列标题呢，加了保存表设置都没有用，哪里出错了呢？