如何将RecordSet对象中的数据全部清除

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