十万火急，VB6.0使用ADOX操作ACCESS，在两列之间插入新列
请教各位达人
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"
[解决办法]
既然是已有的表格，不如直接用查询来创建新表：
Select Column1, Column4, Column2, Column3 Into newTable From myTable
[解决办法]
因为是在代码里面操作的，有没有在"Column1"和"Column2"之间插入新列"Column4"的代码？
我想实现在指定的某一列前（后）最加一列，而“Columns.Append” 最加的列是在最后面的，不能满足要求。
[解决办法]
该回复于2012-04-11 15:29:13被版主删除
