十万火急，ADOX操作ACCESS，在两列之间插入新列

[D007879]

请教各位达人
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

[D007879]

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

[WWWWA]

没有，用SELECT AS来生成新的顺序

[加油馒头]

可以换一种方式来实现，帮顶~~

[yuejiageng]

不一定要用SQL语句呀