Access VBA代码换行产生错误，问题求助？？？

点击下载此附件

我在主窗体【FrmInData】用选项组控件，对子窗体【FrmInData_Child】进行数据筛选，当我点击“立项”时：

1、若VBA代码不进行换行，可以得到正确结果：

Private Sub OptInLx_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.frmDataChild.Form.RecordSource = "select * from InData where (InName like '*立项*' Or InName like '*公告*' Or InName like '*公示*')"
End Sub

2、但是，由于代码在一行显示太长，我按如下方式进行分行显示，则产生错误：

Private Sub OptInLx_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.frmDataChild.Form.RecordSource = "select * from InData" _
  & "where (InName like '*立项*' Or InName like '*公告*' Or InName like '*公示*')"
End Sub

求正确的VBA代码换行？？？

O(∩_∩)O谢谢