Oh, if its a subform you need to replace this line:
DoCmd.ApplyFilter , stLinkCriteria
With:
Me.MySubFormControlName!Form.ApplyFilter , stLinkCriteria
You may also need to play around with a SetFocus command before you run the For Loop, just to be sure the code is looking at the subforms...