Find Record Error

[Resti M. Guay]

hi to all,

i have a problem executing my code. this code finds record in my subform
which contains datasheet

Private Sub cmd_findh_Click()

Me.SystemHistory_subform.SourceObject = "SystemHistorylocator"
Dim forfind As Variant
forfind = Me.prob'---------
Me.SystemHistory_subform!Problem.SetFocus''''----- set the focus to my
subform object where i want find a record
DoCmd.RunCommand acCmdRemoveFilterSort
DoCmd.FindRecord forfind, acAnywhere, False, acSearchAll, , acAll
DoCmd.RunCommand acCmdFilterBySelection

End Sub


somebody help me pls...
resti