Subform Search

[TNGgroup]

Hi,

I have a subform, In my list (subform) I have set a button to display the
data of that record into the form.
But I do not succeed in doing so.

Any help would be appreciated

TNGgroup

Code

Private Sub CmdTop

Dim RS as variant
Set RS = me.recordset.clone
Sfilter = "[frmTop].[Id] = '" & me![id] & "'"
rs.find Sfilter
if rs.EOF = True then
Msgbox "No info"
Else
me.bookmark = rs.bookmark
End if
RS.close
set RS = nothing
end Sub

Error
Run time error 3001


----------------------------------------------------------------------------
----