feedback on query written

[Compufreak]

Private Sub Run_Report_Click()
Dim strSQL As String
    
    strSQL = "SELECT  Cluster_Dept.ID, Cluster_Dept.Cluster_ID, Cluster_Dept.Dept_ID, Clusters.Cluster_Desc, Department.Dept_Desc, " & _
                "Source.Day_Month_Year, Source.Original_Source, Source.Headline, Source.Issue, Source.Analysis, Source.Action " & _
                "FROM Source INNER JOIN (Department INNER JOIN (Clusters INNER JOIN Cluster_Dept ON Clusters.Cluster_ID " & _
                "= Cluster_Dept.Cluster_ID) ON Department.Dept_ID = Cluster_Dept.Dept_ID) ON Source.ID = Cluster_Dept.ID"

    
    
    If IsNull(Combo1.Value) And IsNull([StartDate]) And IsNull([EndDate]) And IsNull([Search]) And IsNull(Combo53.Value) Then
            'run report without any condition
           strSQL = strSQL & ";"
       
         Else
            If ((Combo1.Value <> " ") And IsNull([StartDate]) And IsNull([EndDate])) And (Combo53.Value <> " ") Then
                        'run report by category
                        'strSQL = strSQL & " " & "WHERE [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & " and " & [Source].Analysis = "& Chr(34) & [Combo53] & Chr(34)" & ";"
                         strSQL = strSQL & " " & "WHERE [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & " and [Source].Analysis = " & Chr(34) & [Combo53] & Chr(34) & ";"
         Else
                     If ((Combo1.Value <> " ") And IsNull([StartDate]) And IsNull([EndDate])) And IsNull(Combo53.Value) Then
                        'run report by category
                        'strSQL = strSQL & " " & "WHERE [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & " and " & [Source].Analysis = "& Chr(34) & [Combo53] & Chr(34)" & ";"
                         strSQL = strSQL & " " & "WHERE [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & ";"
         Else
                If IsNull(Combo1.Value) And (([StartDate] <> " ") Or ([EndDate] <> " ")) And (Combo53.Value <> " ") Then
                  'run report by date recieved"
                   strSQL = strSQL & " " & "WHERE [Day_Month_Year] Between #" & [StartDate] & "# AND #" & [EndDate] & "#" & " and [Source].Analysis = " & Chr(34) & [Combo53] & Chr(34)
         Else
                If IsNull(Combo1.Value) And (([StartDate] <> " ") Or ([EndDate] <> " ")) And IsNull(Combo53.Value) Then
                  'run report by date recieved"
                   strSQL = strSQL & " " & "WHERE [Day_Month_Year] Between #" & [StartDate] & "# AND #" & [EndDate] & "#"
         Else
         
                   If (Combo1.Value <> " ") And (([StartDate] <> " ") Or ([EndDate] <> " ")) And (Combo53.Value <> " ") Then
                    strSQL = strSQL & " " & "WHERE Source.Day_Month_Year Between #" & [StartDate] & "# AND #" & [EndDate] & "# AND [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & " and [Source].Analysis = " & Chr(34) & [Combo53] & Chr(34) & ";"
                    parSelection = [Combo1] & ";" & "Day_Month_Year:" & [StartDate] & "-" & [EndDate]
        Else
                   If (Combo1.Value <> " ") And (([StartDate] <> " ") Or ([EndDate] <> " ")) And IsNull(Combo53.Value) Then
                    strSQL = strSQL & " " & "WHERE Source.Day_Month_Year Between #" & [StartDate] & "# AND #" & [EndDate] & "# AND [Clusters].Cluster_Desc =" & Chr(34) & [Combo1] & Chr(34) & ";"
                    parSelection = [Combo1] & ";" & "Day_Month_Year:" & [StartDate] & "-" & [EndDate]
          Else
                        If (([Search] <> " ")) Then
                        strSQL = strSQL & " " & "WHERE Source.Headline Like" & Chr(34) & "*" & [Search] & "*" & Chr(34)
                        End If
                   End If
                End If
            End If
            End If
            End If
            End If
    End If
  '   Assign SQL code to query that the entry form uses
             CurrentDb.QueryDefs("Search_by_Clusters and date").SQL = strSQL
             
            'Open the report
            DoCmd.OpenReport "Search_by_Clusters and date", acViewReport
End Sub

i would like to know if there is anything wrong with my code as when i am using it in access runtime , it kicks me out when i enter conditions and click the run report button. Please help

[June7]

Step debug. Refer to link at bottom of my post for debug techniques.