Set RSDest = Me.RecordsetClone
RSDest.MoveFirst

Do Until RSDest.EOF
rsMy.MoveFirst
rsMy.findfirst "[Incom_ID] = " & RSDest![Incom_ID]
RSDest.Edit
RSDest![ZatratPercent] = Round(rsMy!Tot / Summa, 3)
Debug.Print "My:" & rsMy![Incom_ID] & " Dest:" & RSDest![Incom_ID] & " Tot:" & rsMy![Tot] & " Summa:" & Summa & " Prc:" & RSDest![ZatratPercent]
RSDest.Update
RSDest.MoveNext
Loop
RSDest.Close
rsMy.Close

Такой код был. Перехожу на ado, а метода edit не могу найти.
Подскажите, что использовать???

Спасибо