я так думаю проиходит следующее:

Private Sub FindRecord(strSearchKod As String)
Dim frm As Form
Dim rsClone As New ADODB.Recordset 'New тут необязательно
Set frm = Forms!Форма.Form
frm.Requery

'Обновление такого плана носит асинхронный характер, т.е. выполнение кода продолжается, не дожидаясь окончания выборки данных

Set rsClone = frm.RecordsetClone
rsClone.Find "код = " & Chr(39) & strSearchKod & Chr(39)

'Попытка найти запись в наборе, в то время как этой записи еще нет в числе тех, что приехали на клиента(асинхронная выборка) и как следствие - потеря текущей записи

frm.Bookmark = .Bookmark

'соответственно происходит ошибка

Set rsClone = Nothing
Set frm = Nothing
End Sub


___________
Что можно посоветовать. Посмотрите мой пример по адресу: http://am.rusimport.ru/MsAccess/show.asp?ID=15
Там используется событие рекордсета окончания выборки для дальнейшего продолжения кода. В принципе можно не дожидаться окончания выборки, а циклично проверять приехала ли искомая запись(забыл имя соотв.события рекордсета).
Другой вариант организовать синхронную выборку:
frm.Requery
Docmd.gotorecord,,, aclast
таким образом гарантировано приезжают все записи, а потом уже можно вести поиск