Dim sFilter As String
...
sFilter= "Status = 'Inventory' AND Color = '" & vsColor & "' AND Country = '" & vsCountry & "'"
Debug.Print sFilter

strSQL = "Select A, B, C, D From X Where Z = '" & somecontrol.value & "' " _
& "And R = '" & Someothercontrols.value & "'"
'just an example hardcoded query string

strSQL = GetSQL

Function GetSQL() As String
Dim i As Integer
Dim count As Integer
Dim str() As String  'Array used in building items to select and filter on
'Get an array for items to be "Selected"
ReDim str(UBound(controlarray))
'I usually use a control array of checkboxes for items to select.  Adjust to your own controls.
'Control arrays are easier for me.
For i = LBound(controlarray) To UBound(controlarray)
    If controlarray(i).Checked Then
        str(count) = controlarray(i).Caption
        count = count + 1
    End If
Next
'Resize your array to match everything that was selected.
ReDim Preserve str(count - 1)
'Start your SQL query string
GetSQL = "Select " & Join(str, ",") & " From MyTable "
count = 0
'Now go through your filters
'In this, we'll use Drop down lists with the TOP of the list being BLANK meaning you DON'T want to filter on that item.
'So in other words, if you have a list of Countries to select from, instead of having ALL Countries, just have a blank value
'which means ALL Countries
If Colors.Text <> "" Then
    str(count) = " Colors = '" & Colors.Text & "' "
    count = count + 1
End If
If Countries.Text <> "" Then
    str(count) = " Country = '" & Countries.Text & "' "
    count = count + 1
End If
'....etc...  Do an If for each filter
'Reisize the array again
ReDim Preserve str(count - 1)
If str(0) <> "" Then  'There is something to Filter on.
    GetSQL = GetSQL & "Where" & str(0)
    'See if there is more than just one item
    If UBound(str) > 0 Then
        For i = 1 To UBound(str)
            GetSQL = GetSQL & " And " & str(i)
        Next
    End If
End If
    
'Do some Order By code here if you want to
If ComboOrderBy.Text <> "" Then
    GetSQL = GetSQL & " Order By " & ComboOrderBy.Text
End If
End Function

'1.Add a string variable at top of form code 
dim strFilter as String
'2.Add a sub for making Filter string : 

private sub  MakeFilterString(strFilterPart as string,AddAND as boolean)
 
if jstrfilterpart<>"" then
strFilter=strFilter + strFilterPart
endif
if 
 AddAND=True then
strFilter=strFilter+" AND "
endif
end sub
'3.in LostFocus event or better event base on your code "
call MakeFilterString(cbxxxx.text,[true or failes])