Nel documento che ti ho suggerito appare questo
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CampoID] = '" & Me![NomeCasellaCombinata] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Se non funziona analoga sintassi...secondo me vuol dire che non punti correttamente su IDDip.