Report, multiple filters problem (1 Viewer)

Private Sub DateReportDiagFU_Click()
    On Error GoTo Err_Handler
    'Purpose: Filter a report to a date range.
    'Note: Filter uses "less than the next day" in case the field has a time component.
    Dim strReport As String
    Dim strDateField As String
    Dim strWhere As String
    Dim lngView As Long
    Const strcJetDate = "\#mm\/dd\/yyyy\#"    'Do NOT change this format.

    'DO set the values in the next 3 lines.
    strReport = "Clinical Diagnosis FU"    'Put your report name in these quotes.
    strDateField = "[Date of GP Referral]"    'Put your field name in the square brackets in these quotes.
    lngView = acViewPreview    'Use acViewNormal to print instead of preview.

    'Build the filter string.
    If IsDate(Me.txtStartDate) Then
        strWhere = "(" & strDateField & " >= " & Format(Me.txtStartDate, strcJetDate) & ")"
    End If
    If IsDate(Me.txtEndDate) Then
        If strWhere <> vbNullString Then
            strWhere = strWhere & " AND "
        End If
        strWhere = strWhere & "(" & strDateField & " < " & Format(Me.txtEndDate + 1, strcJetDate) & ")"
    End If
    
[B][COLOR="Red"]    

If strWhere <> vbNullString then 
   strWhere = strWhere & " AND " 
End If

strWhere = strWhere & " ([Attendance Type]='FU' And " & _
    "[Clinical Diagnosis] <> " & vbNullString & ") Or ([Attendance Type]='FU+PROC' " & _
    "And [Clinical Diagnosis] <>" & vbNullString & ")"
[/COLOR][/B]
    'Close the report if already open: otherwise it won't filter properly.
    If CurrentProject.AllReports(strReport).IsLoaded Then
        DoCmd.Close acReport, strReport
    End If

    'Open the report.
    'Debug.Print strWhere 'Remove the single quote from the start of this line for debugging purposes.
    DoCmd.OpenReport strReport, lngView, , strWhere
Exit_Handler:
    Exit Sub
Err_Handler:
    If Err.Number <> 2501 Then
        MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "Cannot open report"
    End If
    Resume Exit_Handler
End Sub

If strWhere <> vbNullString Then
   strWhere = strWhere & " AND "
End If

strWhere = strWhere & " ([Attendance Type]='FU' And " & _
    "[Clinical Diagnosis] <> '') Or ([Attendance Type]='FU+PROC' " & _
    "And [Clinical Diagnosis] <> '')"