如何将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