recordset中find方法的问题

窗体（下称窗体1）内有如下的控件：
文本框TName1:用于输入要姓名
按钮CSearch:"查询",点击该按钮开始查询
datadrid：显示找到的记录
adodc1:
按钮CModify:”修改",点击后进入另一个窗体（下称窗体2），修改职员的信息

现在的问题是我在窗体1内，按要求输入名字后，在datadrid中显示了相应的记录
但是我按下CModify按钮后，窗体2内显示的内容始终是adodc1中的第一个职员的记录信息
我看到参考书上说，用find方法可以使记录集的位置设置在找到的记录上，为什么我这样做结果还是不对呢？

附部分代码：
Private Sub CModify_Click()
Dim Num1 As String
Dim temp As String
Num1 = Adodc1.Recordset.Fields("身份证号")
Debug.Print Num1
Adodc1.Recordset.MoveFirst
temp = "身份证号='" & Num1 & "'"
Debug.Print temp //从立即窗口可以看到是要找的相应的职员
Adodc1.Refresh
Adodc1.Recordset.Find (temp)
frmCertificateManage.Show vbModal //显示窗体2
End Sub