with Rs
Rs.movefirst
For i = 1 To .RecordCount              
      .Delete
      .MoveNext
  Next
End With
rs.update
rs.updatabatch