Try changing rstADO.Update to rstADO.UpdateBatch.

Also, you don't need rstADO.Requery.

Hope this helps.  😎