关于组合查询问题

Option Compare Database
Option Explicit

Private Sub find1_Click()

    Dim strWhere As String
    strWhere = ""
    
    If Me.jlrq.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "建立日期 = #" & Me.jlrq.Value & "#"
    End If
    
    If Me.z.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "建立日期 >= #" & Me.z.Value & "#"
    End If
    
    If Me.To.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "建立日期 <= #" & Me.To.Value & "#"
    End If
        
    If Me.nl.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "年龄 like '*" & Me.nl.Value & "*'"
    End If
    
    If Me.xb.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "性别 = '" & Me.xb.Value & "'"
    End If
        
    If Me.hj.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "户籍 like '*" & Me.hj.Value & "*'"
    End If
        
    If Me.fflx.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "付费类型='" & Me.fflx.Value & "'"
    End If

    If Me.glz.Value <> "" Then
        If strWhere <> "" Then
            strWhere = strWhere & " and "
        End If
        strWhere = strWhere & "管理者='" & Me.glz.Value & "'"
    End If

    
    Me.findchild.Form.Filter = strWhere
    Me.findchild.Form.FilterOn = True
    
    
End Sub