有关查询vba的问题

Private Sub 查找_Click()
    On Error GoTo Err_cmd查询_Click
    Dim strWhere As String  '定义条件字符串
    strWhere = "" '设定初始值－空字符串
    '判断【读者编号文本】条件是否有输入的值
    If Trim(Me.读者编号文本) <> "" Then
        '有输入
        strWhere = strWhere & "([读者编号] like '*" & Me.读者编号文本 & "*')"
    End If
    '判断【条形码】条件是否有输入的值
    If Trim(Me.条形码文本) <> "" Then
        '有输入
        strWhere = strWhere & IIf(strWhere <> "", " and ", "") & " ([条形码] like '*" & Me.条形码文本 & "*')"
    End If
   '判断【姓名文本】条件是否有输入的值
    If Trim(Me.姓名文本) <> "" Then
        '有输入
        strWhere = strWhere & IIf(strWhere <> "", " and ", "") & " ([姓名] like '*" & Me.姓名文本 & "*')"
    End If
    '先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句
    Debug.Print strWhere
    '让子窗体应用窗体查询
    Me.[读者档案管理子窗体].Form.Filter = strWhere
    MsgBox Me.[读者档案管理子窗体].Form.Filter
    Me.[读者档案管理子窗体].Form.FilterOn = True
 
Exit_cmd查询_Click:
    Exit Sub
Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click
  
End Sub