VB 怎样获取一个数据库中某一个表的所有字段名？

Question

如题，把所有字段名获取放到一个数组中，不用获取数据类型。我用的是ADO连接，网上的方法很乱，由于对编程语言操作数据库不是很熟悉，所有看不太懂，麻烦给个简单易懂点的。

Answer 1

'在菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library
'在窗体的Form_Load事件里面写如下代码：
Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "Select * From 用户表"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
    Dim a()
    ReDim a(rst.Fields.Count - 1)
    For i = 0 To rst.Fields.Count - 1
        a(i) = rst.Fields(i).Name
        MsgBox a(i)
    Next
End Sub

Answer 2

字段名就是recordset.fields(X).name
字段注释就麻烦点了.