I too had this error.

Make sure you are cleaning up your record sets after each loop.

RecordSet.Close() ' Close the record set

Set RecordSet = Nothing  ' free up memory