Рекомендую RequeryPro:
http://am.rusimport.ru/MsAccess/show.asp?ID=24

Главный момент этой функции в том, что после обновления запись, которая была текущей до обновления не только становится текущей после обновления, но и остается в том же положении относительно экрана. Т.е. если она была в пятом экране пятой по счету от верха экрана, то после обновления она и останется пятой сверху.

Единственный комментарий. В коде есть строка:
'Выберем все записи, перейдя на последнюю
DoCmd.GoToRecord acActiveDataObject, , acLast 'Нужно в adp

Так вот, эта строка лишняя, это было заблуждение. Закомментируйте ее, будет быстрее работать