Dim objRS As ADODB.Recordset
Dim i As Integer
Set objRS = New ADODB.Recordset
''''添加一笔记录
objRS.Fields.Append "col", adVarChar, 10
''''打开记录集
objRS.Open
''''增加两笔数据
objRS.AddNew "col", "Row1"
objRS.AddNew "col", "Row2"
''''将指针移动到记录集最后，逆向删除每一行
objRS.MoveLast
For i = 0 To objRS.RecordCount - 1
''''删除当前行
objRS.Delete adAffectCurrent
''''向前移动指针
objRS.MovePrevious
Next
MsgBox objRS.RecordCount ''''Will be 0
