我在窗体中添加了一个组合框，自动生成了如下的一个事件过程

Private Sub Sample_ID_AfterUpdate()
' 查找与该控件匹配的记录。
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Sample ID] = '" & Me![Sample ID] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

当我在窗体中选择一个记录的时候, 却出现了错误，内容为“运行时错误‘ 3399’：不能执行层叠操作，它将导致表‘’中出现一个重复的关键字。”

调试的时候“ If Not rs.EOF Then Me.Bookmark = rs.Bookmark”是这句话编译不过去。

小弟初学的，急死人哦！！先谢谢各位了