如何得到某一个recordsource的列总数和列头？

Question

如题
确定了adodc的recordsource
现在我想知道这个recordsource有多少列，并得到每列的列头（表结构）,怎么做呢？
谢谢

Answer 1

rs.Fields.Count'这个就是总列数For i = 0 To rs.Fields.Count-1
    Debug.Print rs.Fields(i).Name'这里得到每个列名
Next i

Answer 2

rs.fields.count                                          '列总数
while not rs.eof
   for i=0 to rs.rields.count-1
        combo_name.additem rs.rields(i).name             '得到列名
   next i
wend