下面是逐个显示第一条记录的各个字段值,通过实例,你应该可以操作想要的信息数据了:
'如果表里的记录数大于0
Ifds1.Tables("kucun").Rows.Count>0Then
'依照数据表的字段值循环
Fori=0Tods1.Tables("kucun").Columns.Count-1
'显示第一条记录的第i个字段名和字段值
MsgBox(ds1.Tables("kucun").Columns(i).ColumnName&":"&ds1.Tables("kucun").Rows(0)(i))
Next
EndIf