Multiple search Problem (1 Viewer)

Private Sub subChangeFilter()
If Trim(Me.textBox1 & Me.textBox2 & Me.textBox3 & Me.textBox4 & Me.textBox5 & "") = "" Then
Me.Filter = False
Else
Me.Filter = "surcomp LIKE '*" & Replace(Me.textBox1, "'", "''") & "*' _
AND First_Name LIKE '" & Me.textBox2 & "*' _
AND Address_Line_1 LIKE '*" & Me.textBox3 & "*' _
AND PostCode LIKE '*" & Me.textBox4 & "*' _
AND Home_Telephone_Number LIKE '*" & Me.textBox5 & "*'"

Me.FilterOn = True
End If

End Sub

if nz(me.textbox1,"")<>"" then
strFilter = strFilter &  "surcomp like ""*" & me.textbox1 & "*"" and  "
end if

if strfilter <> "" then
strFilter = left(strFilter,len(strFilter)-4)
end if

Debug.print strfilter

me.filter = strFilter
me.filteron = true

Private Sub btnSearch_Click()
 
'Update and run pass-through query

On Error GoTo Err_btnSearch_Click
 
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim qdf As QueryDef
Dim WhereClause As String
 
    WhereClause = BuildWhere()

    If WhereClause = "" Then
        Beep
        MsgBox "Please enter at least one item to search by!", , PROJECT_NAME
    Else
        Set DB = CurrentDb()
        Set qdf = DB.QueryDefs("SearchFormQuery")
        
        qdf.SQL = SQL_START + WhereClause
            
        Set qdf = Nothing
        
        Set rs = DB.OpenRecordset("SearchFormQuery")
        If rs.RecordCount = 0 Then
            MsgBox "No records match this criteria"
        Else
            DoCmd.OpenQuery "SearchFormQuery"
        End If
    End If
 
Exit_btnSearch_Click:
    On Error Resume Next
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    If Not qdf Is Nothing Then Set qdf = Nothing
    If Not DB Is Nothing Then Set DB = Nothing
    Exit Sub
 
Err_btnSearch_Click:
    MsgBox Err.Description
    Resume Exit_btnSearch_Click
    
End Sub
 
 
Private Function BuildWhere() As String
 
On Error GoTo BW_Err
 
Dim ctrl As Control
Dim WhereClause As String
 
    WhereClause = "WHERE "
    
    For Each ctrl In Me.Controls
        Select Case ctrl.Tag
            Case "Full"
                If Nz(ctrl.Value, "") <> "" Then WhereClause = WhereClause & ctrl.Name & " = '" & ctrl.Value & "' And "
            Case "Like"
                If Nz(ctrl.Value, "") <> "" Then WhereClause = WhereClause & ctrl.Name & " Like '%" & ctrl.Value & "%' And "
        End Select
    Next ctrl
    
    If Not IsNull(Me!AddedDateStart) Then
        If IsNull(Me!AddedDateEnd) Then
            WhereClause = WhereClause & "AddedDate = '" & Me!AddedDateStart & "'"
        Else
            WhereClause = WhereClause & "AddedDate Between '" & Me!AddedDateStart & "' And '" & Me!AddedDateEnd & "'"
        End If
    End If
    
    If Right(WhereClause, 5) = " And " Then WhereClause = Left(WhereClause, Len(WhereClause) - 5)
    If WhereClause = "WHERE " Then WhereClause = ""
    
    BuildWhere = WhereClause
    
BW_Exit:
    Exit Function
 
BW_Err:
    Beep
    MsgBox ERR_START & _
           "In Function:" & vbTab & "SearchQuery.BuildWhere" & vbCrLf & _
           "Err Number: " & vbTab & Err.Number & vbCrLf & _
           "Description: " & vbTab & Err.Description, vbCritical, PROJECT_NAME
    Resume BW_Exit
    
End Function

From
... like [B][COLOR=Red]""[/COLOR][/B]*" & Me.t1 & "*[B][COLOR=Red]"" [/COLOR][/B]and  "
To
...like [COLOR=Red][B]'[/B][/COLOR]*" & Me.t1 & "*[B][COLOR=Red]' [/COLOR][/B]and  "