Recordset对象是基于连接数据库的数据表或通过Command对象执行结果获取的记录集。要通过ADO对象模型对数据库中的数据进行操作，经常需要使用该对象。本文介绍使用Recordset对象的属性来获取数据库字段的方法。本文使用微软Access自带的“罗斯文2007”数据库文件，程序将开启其中的“运货商”数据表记录集，将返回记录集记录总数及有关字段。
1、新建Excel工作簿，打开Visual Basic编辑器，在工程资源管理器中插入一个模块，在模块的“代码”窗口中输入如下代码：
Sub RecordsetAttribute()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Provider="Microsoft.ACE.OLEDB.12.0" '设置提供者名称
conn.ConnectionString="data source="&_ThisWorkbook.Path&"罗斯文2007.accdb" '设置连接字符串
conn.Mode=adModeReadWrite '设置数据库读写模式
conn.Open '打开数据库连接
rs.CursorLocation=adUseClient '设置游标引擎位置
rs.Open"运货商",conn,adOpenForwardOnly,adLockOptimistic '打开“运货商”数据表记录集
Debug.Print"记录总数："&rs.RecordCount '输出记录集记录数
Do Until rs.EOF '遍历记录集所有记录
Debug.Print rs.AbsolutePosition&vbTab&rs.Fields("公司") '输出当前记录位置及“公司”字段
rs.MoveNext '移动到下一条记录
Loop
End Sub
2、按F5键运行该过程，此时可以在“立即窗口”中获取指定数据库中的字段记录，如图1所示。
图1 获取字段记录
