I've used a different method .
I've cancelled the main Form and turned the subform ito a Main Form and used the following:
strWhere = "[Seder_Code]=" & G_Seder & " AND " & "[Bahoor_Code]=" & G_NameCode
DoCmd.OpenForm "Fines", , , strWhere
and it works fine.
Thank you