设置其他窗体上子窗体的Recordset属性时会死掉

当

kmdm='1001'

cxtj1=“”"流水标志位 in (2,8,0) and 借方id=" & "'" & kmdm & "'or 贷方id=" & "'" & kmdm & "' 流水标志位 in (2,8,0)"

这条代码（Set Forms!凭证录入.F_凭证录入子窗体.Form.Recordset = rs）执行时更多时候会让access死掉。请大家帮忙分析一下具体原因。

下面是具体代码

Dim db As DAO.Database
   Dim rs As DAO.Recordset

   'Assumes the linked table is in the current database
   Set db = CurrentDb
   Set rs = db.OpenRecordset("select * from F\OutIn年 where " & cxtj, dbOpenDynaset)
   MsgBox "ok"‘（死掉时，每次都是显示ok后死掉）
   Set Forms!凭证录入.F_凭证录入子窗体.Form.Recordset = rs

   Set Forms!凭证录入.Form.Recordset = rs

Forms!凭证录入.收支日期.ControlSource = rs("收支日期").Name
Forms!凭证录入.收支人.ControlSource = rs("收支人").Name
Forms!凭证录入.金额.ControlSource = rs("金额").Name
Forms!凭证录入.摘要.ControlSource = rs("摘要").Name
Forms!凭证录入.Combo1.ControlSource = rs("借方id").Name
Forms!凭证录入.Combo2.ControlSource = rs("贷方id").Name
Forms!凭证录入.借方科目.ControlSource = rs("借方科目").Name
Forms!凭证录入.贷方科目.ControlSource = rs("贷方科目").Name
Forms!凭证录入.其他说明.ControlSource = rs("其他说明").Name
End Sub