I am attempting to use 9 different list boxes, and generate a report.

I need for all Function SQL_Criteria_() As String, IF strCriteria_ = "", to also include Null Fields, but, for example if cboLEED or cboSector OR BOTH have a selected value or multiselected values, I only want records that are true for the selected conditions to return on the report. Currently, all records true for the selection and "Null" records return.

Here's my code:
Code:
Sub Clear_MultiSelect()
'Clears all values Selected in a listbox

    Dim varItm As Variant
    Dim ctl1 As Control
    Dim ctl2 As Control
    Dim ctl3 As Control
    Dim ctl4 As Control
    Dim ctl5 As Control
    Dim ctl6 As Control
    Dim ctl7 As Control
    Dim ctl8 As Control
    Dim ctl9 As Control
    
    Set ctl1 = Me.cboBIM
    Set ctl2 = Me.cboLEED
    Set ctl3 = Me.cboSector
    Set ctl4 = Me.cboStatus
    Set ctl5 = Me.cboPCA
    Set ctl6 = Me.cboOwner
    Set ctl7 = Me.cboClient
    Set ctl8 = Me.cboProb
    Set ctl9 = Me.cboBegin
        
    
    For Each varItm In ctl1.ItemsSelected
        ctl1.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl2.ItemsSelected
        ctl2.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl3.ItemsSelected
        ctl3.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl4.ItemsSelected
        ctl4.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl5.ItemsSelected
        ctl5.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl6.ItemsSelected
        ctl6.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl7.ItemsSelected
        ctl7.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl8.ItemsSelected
        ctl8.Selected(varItm) = False
    Next varItm
    For Each varItm In ctl9.ItemsSelected
        ctl9.Selected(varItm) = False
    Next varItm
    End Sub
Code:
Function SQL_Criteria1() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm1 As Variant
    Dim ctl1 As Control
    Dim strCriteria1 As String
    
    Set ctl1 = Me.cboBIM

    For Each varItm1 In ctl1.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria1 = strCriteria1 + ctl1.ItemData(varItm1) & ","
    Next varItm1

    If strCriteria1 = "" Then
        SQL_Criteria1 = " BIM Like '*' "
    Else
        SQL_Criteria1 = " BIM IN(" & Left(strCriteria1, Len(strCriteria1) - 1) & ")" 'Rremove last comma
    End If

End Function


Function SQL_Criteria2() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)

    Dim varItm2 As Variant
    Dim ctl2 As Control
    Dim strCriteria2 As String

    Set ctl2 = Me.cboLEED

    For Each varItm2 In ctl2.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria2 = strCriteria2 + ctl2.ItemData(varItm2) & ","
    Next varItm2
    
    If strCriteria2 = "" Then
        SQL_Criteria2 = " LEED Like '*' "
    Else
        SQL_Criteria2 = " LEED IN(" & Left(strCriteria2, Len(strCriteria2) - 1) & ")" 'Rremove last comma
    End If
    

End Function


Function SQL_Criteria3() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm3 As Variant
    Dim ctl3 As Control
    Dim strCriteria3 As String
    
    Set ctl3 = Me.cboSector
    For Each varItm3 In ctl3.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria3 = strCriteria3 + ctl3.ItemData(varItm3) & ""","""
    Next varItm3
    
    If strCriteria3 = "" Then
        SQL_Criteria3 = " [Market Sector] Like '*' "
    Else
        SQL_Criteria3 = " [Market Sector] IN(""" & Left(strCriteria3, Len(strCriteria3) - 3) & """)" 'Rremove last comma
    End If

End Function


Function SQL_Criteria4() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm4 As Variant
    Dim ctl4 As Control
    Dim strCriteria4 As String

    Set ctl4 = Me.cboStatus
    
    For Each varItm4 In ctl4.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria4 = strCriteria4 + ctl4.ItemData(varItm4) & ","
    Next varItm4
    
    If strCriteria4 = "" Then
        SQL_Criteria4 = " Status Like '*' "
    Else
        SQL_Criteria4 = " Status IN(" & Left(strCriteria4, Len(strCriteria4) - 1) & ")" 'Rremove last comma
    End If

End Function


Function SQL_Criteria5() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm5 As Variant
    Dim ctl5 As Control
    Dim strCriteria5 As String
    
    Set ctl5 = Me.cboPCA
    For Each varItm5 In ctl5.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria5 = strCriteria5 + ctl5.ItemData(varItm5) & ""","""
    Next varItm5
    
    If strCriteria5 = "" Then
        SQL_Criteria5 = " [PCA Contact] Like '*' "
    Else
        SQL_Criteria5 = " [PCA Contact] IN(""" & Left(strCriteria5, Len(strCriteria5) - 3) & """)" 'Rremove last comma
    End If

End Function


Function SQL_Criteria6() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm6 As Variant
    Dim ctl6 As Control
    Dim strCriteria6 As String
    
    Set ctl6 = Me.cboOwner
    For Each varItm6 In ctl6.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria6 = strCriteria6 + ctl6.ItemData(varItm6) & ""","""
    Next varItm6
    
    If strCriteria6 = "" Then
        SQL_Criteria6 = " [Owner] Like '*' OR 'Null' "
    Else
        SQL_Criteria6 = " [Owner] IN(""" & Left(strCriteria6, Len(strCriteria6) - 3) & """)" 'Rremove last comma
    End If

End Function


Function SQL_Criteria7() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm7 As Variant
    Dim ctl7 As Control
    Dim strCriteria7 As String
    
    Set ctl7 = Me.cboClient
    For Each varItm7 In ctl7.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria7 = strCriteria7 + ctl7.ItemData(varItm7) & ""","""
    Next varItm7
    
    If strCriteria7 = "" Then
        SQL_Criteria7 = " [Client] Like '*' OR 'Null' "
    Else
        SQL_Criteria7 = " [Client] IN(""" & Left(strCriteria7, Len(strCriteria7) - 3) & """)" 'Rremove last comma
    End If

End Function
Function SQL_Criteria8() As String


'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm8 As Variant
    Dim ctl8 As Control
    Dim strCriteria8 As String
    
    Set ctl8 = Me.cboProb
    For Each varItm8 In ctl8.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria8 = strCriteria8 + ctl8.ItemData(varItm8) & ""","""
    Next varItm8
    
    If strCriteria8 = "" Then
        SQL_Criteria8 = " [Probability of Success] Like '*' OR 'Null' "
    Else
        SQL_Criteria8 = " [Probability of Success] IN(""" & Left(strCriteria8, Len(strCriteria8) - 3) & """)" 'Rremove last comma
    End If

End Function


Function SQL_Criteria9() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
    
    Dim varItm9 As Variant
    Dim ctl9 As Control
    Dim strCriteria9 As String
    
    Set ctl9 = Me.cboBegin
    For Each varItm9 In ctl9.ItemsSelected
        'Use the ItemData Property to select the Bound Column
        'Use the Column Property to specify the Row, Column
        strCriteria9 = strCriteria9 + ctl9.ItemData(varItm9) & ""","""
    Next varItm9
    
    If strCriteria9 = "" Then
        SQL_Criteria9 = " [Beginning Date] Like '*' OR 'Null' "
    Else
        SQL_Criteria9 = " [Beginning Date] IN(""" & Left(strCriteria9, Len(strCriteria9) - 3) & """)" 'Rremove last comma
    End If

End Function
Code:
Function Criteria() As String
    
    Criteria = SQL_Criteria1 & " And " & SQL_Criteria2 & " And " & SQL_Criteria3 & " And " & SQL_Criteria4 & " And " & SQL_Criteria5 & " And " & SQL_Criteria6 & " And " & SQL_Criteria7 & " And " & SQL_Criteria8 & " And " & SQL_Criteria9
    
End Function
Code:
Private Sub cmdReport1_Click()

        DoCmd.OpenReport "Summary Report", acViewPreview, , Criteria

End Sub