Isso Acontecia comigo qdo eu precisava fazer varias alteracoes de uma so vez no Banco de dados, com um Do While.
Depois que inseri 2 Linhas simples no Sistema nunca + deu esse erro
Do While not adoPesquisa.Eof
adoRecordset.AddNew
' ...
adoRecordset.Update
'as linhas sao essas
adoRecordset.close
set adoRecordset = nothing
'-
adoPesquisa.Movenext
Loop
Qualquer duvida Post
Te +