增加列

在命令窗口执行下面的代码：

Dim Builder As New ADOXBuilder("wdsj")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")
   .AddColumn("张三" ,ADOXType.String,1)
End With
Builder.Close() \'关闭ADOXBuilder

上面的代码，在增加“张三”列时，我想先判断一下“表A”是否有“张三”列，如果没有，就增加列。但是“表A”是通过代码增加的，也没有通过菜单把“表A”添加到狐表里，所以无法使用datatables.load("表A")来加载表。请问，有什么方法能判断“表A”是否存在“张三”列？