怎么用ADO对象模型获取数据表的字段名

如何用ADO对象模型获取数据表的字段名
如题

[解决办法]

VB code

Sub GetTableColumns(pTableName As String)    Dim cn As ADODB.Connection    Dim rs As ADODB.Recordset        Set cn =New ADODB.Connection    cn.Open "连接数据库字符串......"    Set rs = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, pTableName, Empty))    While Not rs.EOF        Debug.Print rs!COLUMN_NAME        rs.MoveNext    Wend    Set rs = Nothing    Set cn =NothingEnd Sub'调用: GetTableColumns "youTableName"