请教各位达人
  ADOX操作ACCESS，怎么在两列之间插入新列。

VB代码：--------------- 
Sub CreateTable() 

Dim tbl As New Table 
Dim cat As New ADOX.Catalog 

'打开目录。 
' 打开目录。 
cat.ActiveConnection = _ 
""Provider=Microsoft.Jet.OLEDB.4.0;"" & _ 
""Data Source=c:\Program Files\Microsoft Office\"" & _ 
""Office\Samples\Northwind.mdb;"" 

tbl.Name = ""MyTable"" 
tbl.Columns.Append ""Column1"", adInteger 
tbl.Columns.Append ""Column2"", adInteger 
tbl.Columns.Append ""Column3"", adVarWChar, 50 
cat.Tables.Append tbl 

问题： 我怎么在"Column1"和"Column2"之间插入新列"Column4

因为是在代码里面操作的，有没有在"Column1"和"Column2"之间插入新列"Column4"的代码？
我想实现在指定的某一列前（后）最加一列，而“Columns.Append” 最加的列是在最后面的，不能满足要求。用SELECT AS来生成新的顺序