vb 如何获取字段名

1、希望这个网址可以帮助到你

http://zhidao.baidu.com/question/1239443077603133139.html?oldq=1

2、Connection.OpenSchema  adSchemaTables adSchemaColumns

Private Sub Command1_Click()

    Dim cnn As Object

    Const adSchemaTables = 20

    Const adSchemaColumns = 4

    Set cnn = CreateObject("adodb.connection")

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\test.mdb';Persist Security Info=False"

    Set rds = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))

    Debug.Print "Table_Name", "Column_Name"

    Do Until rds.EOF

        Table_name = rds!Table_name

        Set temp = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, Table_name))

        Do Until temp.EOF

            Debug.Print Table_name, temp!Column_Name

            temp.MoveNext

        Loop

        rds.MoveNext

    Loop

    rds.Close

    temp.Close

    cnn.Close

End Sub