主题：怎么动态增加表中的列，如果存在，就不增加，执行下边的代码，如果不存在就增加，这个代码怎么写？

参考

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
Dim t As Table = Tables("表A")
Dim flag As Boolean = False
With Builder.Tables(t.name)
    If t.Cols.Contains("测试123456") = False Then
        flag = True
        .AddColumn("测试123456" ,ADOXType.DateTime) '增加日期型列
    End If
    If t.Cols.Contains("测试123") = False Then
        flag = True
        .AddColumn("测试123" ,ADOXType.DateTime) '增加日期型列
    End If
End With
Builder.Close() '关闭ADOXBuilder
If flag Then
    DataTables.unload("表A")
    DataTables.Load("表A")
end if

http://www.foxtable.com/webhelp/scr/2122.htm