Conservar registro con Requery en Access 2000

[simpletrece]

Hola,

He encontrado una posible forma, pero obliga a que el primer campo del formulario sea único


Public Sub REK(frm As Form)

Dim a As Variant
Dim campo As String

a = frm.Recordset(0)
frm.Requery

With frm.RecordsetClone
campo = .Fields(0).Name
.FindFirst campo & " = " & a
If Not .NoMatch Then
frm.Bookmark = .Bookmark
End If
End With