امروز یه روش دیگه هم پیدا کردم که منطقی تر هستش:

با کد زیر خود subForm رو باند میکنی :
Set Me.subformSerch.Form.Recordset = rstSerch


و با این کد هر آجکتی رو که در subForm داریم رو باند میکنیم:
Me.subformSerch.Form.Controls.Item("txtFindB_Code"  ).ControlSource = "B_code"


البته به جای کد دومی(باند کردن آجکت) میشه از این کد هم استفاده کرد:
    Me.subformSerch.Form.Controls.Item("txtFindB_Code"  ).ControlSource = rstSerch.Fields.Item("B_code").Name