adox 如何获取access数据表中各列名称？

Question

请问用adox，如何获取access数据表中各字段名称？columns.item(n)不是第n列的字段名，而是另一个字段名，好像是按什么顺序排了序。（不要用adodb.recordset.field(n).name）。

Answer 1

问题没人回答，adox用于数据定义方面的作用，用其他方法也可以办到，所以就不受重视是吗，我之前一个adox删除字段的问题也没人回答。

Answer 2

Dim cat As New ADOX.Catalog, i As Integer, s As Stringcat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\Documents and Settings\Administrator\My Documents\db1.mdb;Jet OLEDB:Engine Type=4;"For i = 1 To cat.Tables("tab").Columns.Count
    s = s & vbCrLf & "Field" & i & ":" & cat.Tables("tab").Columns(i - 1).Name
Next iMsgBox s