for each 怎么读记录集

for each 如何读记录集
我这样用是错误的
for each name in Adodc1.Recordset.Fields ("姓名")
 msgbox name 
next 请问下如何修改
[最优解释]
for each只能用于符合VB标准的集合和非自定义类型的数组，Recordset不是一个符合VB标准的集合，不能用for each,Fields可以用：
for each fd in Adodc1.Recordset.Fields 
   msgbox fd.value
next 
得到当前记录的各字段值

要得到整个Recordset的值，必须MoveNext

[其他解释]
Do While Not Adodc1.Recordset.EOF
    MsgBox Adodc1.Recordset.Fields("姓名").Value
    Adodc1.Recordset.MoveNext
Loop
[其他解释]

 Do While Not Adodc1.Recordset.EOF
    MsgBox Adodc1.Recordset.Fields("userid").Value
    
    Adodc1.Recordset.MoveNext
Loop