امروز یه روش دیگه هم پیدا کردم که منطقی تر هستش:
با کد زیر خود 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