代码调试请求

这个窗体查询一直有问题，调整了一下午一直没调整出来，请老师们帮忙看下，谢谢：  

Private Sub 查询_Click()
    Dim strWhere As String  '定义条件字符串
    strWhere = "" '设定初始值－空字符串
    If Not IsNull(Me.房主编号) Then
         strWhere = strWhere & "([房主编号] like '*" & Me.房主编号 & "*') AND "
    End If
    If Not IsNull(Me.房主姓名) Then
         strWhere = strWhere & "([房主姓名] like '*" & Me.房主姓名 & "*') AND "
    End If
    If Not IsNull(Me.房主身份证号) Then
         strWhere = strWhere & "([房主身份证号] like '*" & Me.房主身份证号 & "*') AND "
    End If
    If Not IsNull(Me.房屋手机) Then
         strWhere = strWhere & "([房主手机] like '*" & Me.房主手机 & "*') AND "
    End If
    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    Me.房主信息子窗体.Form.Filter = strWhere
    Me.房主信息子窗体.Form.FilterOn = True
    Form_frm房主信息浏览_child.Form.Requery
    Form_frm房主信息浏览_child.Form.Refresh
   
    Dim Rs As Recordset
    Set Rs = Me.房主信息子窗体.Form.RecordsetClone
    If Rs.RecordCount > 0 Then
     Me.房屋信息子窗体.Form.Filter = "房主编号= '" & Form_frm房主信息浏览_child.房主编号 & "'"
     Me.房屋信息子窗体.Form.FilterOn = True
    Else
     Me.房屋信息子窗体.Form.Filter = "房主编号= '0'"
     Me.房屋信息子窗体.Form.FilterOn = True
   
    End If
End Sub

点击下载此附件