ADO虽然是发展的趋势，微软之前也准备将DAO淘汰了，DAO 3.6之后就不再更新，但从Access2007开始又将DAO重新拾起来了，只不过改头换面了一下，变成DAO2了而已，因此DAO短时间内还是淘汰不了，尤其是在Access中，DAO在某些方面的优势依然是ADO比不上的。最近发现一些朋友在使用DAO记录集时，不管是向表中写入数据，还是只是读取数据，都是Set rst=CurrentDb.OpenRecordset("表1")，但实际上这样用效率是很差的，尤其是在数据量比较大的时候，效率问题就显示很重要了，下面整理了一些DAO记录集的使用技巧，只需要稍微改动一下参数就可以实现的。 ---------------------------------------------------------打开一个只用于添加记录的记录集（不能读取已有记录）Dim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("表1", , dbAppendOnly) ---------------------------------------------------------打开一个只读记录集Dim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("表1", , dbReadOnly) ---------------------------------------------------------打开一个只能向前滚动记录的只读记录集(效率最高，但不能使用MovePrevious和MoveFirst方法）Dim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("表1", , dbForwardOnly) ---------------------------------------------------------'打开一个数据来源于SQL Server数据库的记录集时要记得用dbSeeChanges参数，尤其是当表中有自动编号字段时是必需的Dim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("表1", , dbSeeChanges) ---------------------------------------------------------'循环记录集的时候，主要用的有两种： 方式一：Do Until rst.EOFListBox1.Add rst!字段1rst.MoveNextLoop 方式二：Dim intI As IntegerIf rst.RecordCount > 0 Thenrst.MoveLastrst.MoveFirstFor intI = 1 To rst.RecordCountListBox1.Add rst!字段1rst.MoveNextNextEnd If 很多人喜欢用第一种方式，因为使用简单（包括我自己），但第一种的效率要比第二种差些，如果需要大批量操作或者数据量很大的时候，建议大家还是用第二种。 至于在循环的开头先移到记录集结尾，再移到记录集开头的作用时：DAO记录集打开时，如果数据量比较大的时候，存在打开记录集时用RecordCount属性不能正确读取记录数的问题，而要将指针移到最后一条时才能正确读取，再有就是如果你对数据的排序不在意的话，可以不必再将指针移回记录集开头，直接在循环中用MovePrevious移动就行了 注意：上面的示例代码中是将记录源参数设为了表名，但实际上还可以设为查询名称及SQL语句。 阅读原文： DAO记录集使用的一些技巧【Access软件网】 http://www.accessoft.com/article-show.asp?id=4844