组合框联动在翻页后不显示内容了的问题

组合框联动，在完成录入后，当翻页查看时，发现原来录入的内容不显示了，我已经设定了保存记录的代码，为何不起作用呢，请高手帮忙修正一下。点击下载此附件

Private Sub 总账科目（_）_AfterUpdate()

Me.对方科目.RowSource = "SELECT DISTINCT * FROM 明细科目 where 隶属科目=" & Me.[总账科目（-）]

End Sub

Private Sub 总账科目_AfterUpdate()

Me.明细科目.RowSource = "SELECT DISTINCT * FROM 明细科目 where 隶属科目=" & Me.[总账科目]

End Sub

Private Sub Form_Load()

明细科目.RowSource = "SELECT DISTINCT * FROM 明细科目 where 隶属科目=" & Me.[总账科目]      '保存记录

对方科目.RowSource = "SELECT DISTINCT * FROM 明细科目 where 隶属科目=" & Me.[总账科目（-）] '保存记录

End Sub