复制记录

背景：希望通过窗体对某条记录进行修改时，保存按钮可以提供撤销修改和保存修改的功能。

思路：

首先定位当前记录在表中的行数。然后

Set rst = CurrentDb.OpenRecordset("数据")
introw = DCount("*", "数据")
avarrecords = rst.GetRows(introw)

得到二维数组，直接AddNew添加新记录。利用avarRecords函数，复制记录。

问题，我如何找到当前记录在表中的位置？

整个项目只有一个“数据”表，无其他表。

PS：本人纯新手，只是在网上搜索资料的时候形成这么一个思路。其实我就是想做到 1、把指定记录复制到一个地方 2、把这个复制的记录覆盖回原来的地方（即撤销修改动作）。如果大神有更好的思路，请直接指出。小弟感激不尽！！