组合框选择后查询子窗体没有查询的数据是什么原因？

请教各位大师：我设置了主子窗体通过组合框查询，子窗体名称为xxx,组合框名称为项目名称，在组合属性更新事件设置=查询（），组合框选择后子窗体没有查询的数据是什么原因？

'通用查询筛选功能，通过在所有条件输入框的“更新后”事件属性中调用
Function 查询()
    Dim strWhere As String
    '如果项目名称不为空，则将其加入到条件字符串
    If Not IsNull(Me.项目名称) Then strWhere = strWhere & " AND 项目名称='" & Me.项目名称 & "'"   
    '这里为了判断简便，最前面必定会有一个“ AND ”，这是不需要的，这里去掉它
    strWhere = Mid(strWhere, 6)
    '设置子窗体的筛选器条件
    Me.xxx.Form.Filter = strWhere
    '应用筛选
    Me.xxx.Form.FilterOn = True
End Function


Private Sub clear_Click()
'清空条件输入框
    Me.项目名称 = Null  
    '让子窗体获得焦点
    Me.xxx.SetFocus
    '使.用内置命令清除筛选器
    DoCmd.ShowAllRecords