Incorrect SQL Statement while using more than one criteria (1 Viewer)

Private Sub brnFilter_Click()
On Error GoTo ProblemHandle

Dim DB As Database
Dim RS As Recordset
Dim I As Integer
Dim StrSQL As String
Dim VarianteValue As Variant
Dim StrWhere As String
Dim StrIn As String
Dim FlagSelectAll As Boolean
Dim BEntity As Long
Dim BCoCode As Long
Dim STREntity As String
BEntity = Nz(Me.cboentity)





Set DB = CurrentDb
Set RS = DB.OpenRecordset("SELECT * FROM tbbilling")


   

    For I = 0 To Me.ListBox.ListCount - 1
        If Me.ListBox.Selected(I) Then
            If Me.ListBox.Column(0, I) = "ALL" Then
                FlagSelectAll = True
            End If
            StrIn = StrIn & "" & Me.ListBox.Column(0, I) & ","
            
        End If
        
'  
        
        
    Next I
    

    
            

    
    
    
     StrWhere = " WHERE [tbbilling.benefitsID] in " & _
               "(" & Left(StrIn, Len(StrIn) - 1) & ")" _
               & " AND [tbbilling.entityid] = " & BEntity & ""
               

    
   
    
   StrSQL = "INSERT INTO tbbillingReport SELECT tbbilling.* FROM tbbilling "
    
    
  
    
        StrSQL = StrSQL & StrWhere
    Debug.Print StrSQL
    
    End If
    

    DoCmd.RunSQL StrSQL

    
    
    

  
    For Each VarianteValue In Me.ListBox.ItemsSelected
    
        Me.ListBox.Selected(VarianteValue) = False
    Next VarianteValue






Exit Sub


        
        
   
    


DB.Close
Set DB = Nothing
RS.Close

End Sub

Private Sub brnFilter_Click()
On Error GoTo ProblemHandle

   Dim DB As Database 
   Dim RS As Recordset
   Dim I As Integer
   Dim StrSQL As String
   Dim VarianteValue As Variant
   Dim StrWhere As String
   Dim StrIn As String
   Dim FlagSelectAll As Boolean
   Dim BEntity As Long
   Dim BCoCode As Long
   Dim STREntity As String
   
   BEntity = Nz(Me.cboentity)
   Set DB = CurrentDb
   Set RS = DB.OpenRecordset("SELECT * FROM tbbilling")
   'Build the IN string by looping through the listbox
   For I = 0 To Me.ListBox.ListCount - 1
     If Me.ListBox.Selected(I) Then
       If Me.ListBox.Column(0, I) = "ALL" Then
         FlagSelectAll = True
       End If
       StrIn = StrIn & "" & Me.ListBox.Column(0, I) & ","
    End If
' Debug.Print StrIn
   Next I
' If (BEntity = " ") Then
'    STREntity = "LIKE '*'"
' Else
'    STREntity = "='" & BEntity & ""
' End If
  'Create the WHERE string, and strip off the last comma of the IN string
   StrWhere = " WHERE [tbbilling.benefitsID] in " & _
   "(" & Left(StrIn, Len(StrIn) - 1) & ")" _
   & " AND [tbbilling.entityid] = " & BEntity & ""

   Debug.Print StrWhere
  'Empty table content
  Call EmptyTbl
  'Append filted data
   StrSQL = "INSERT INTO tbbillingReport SELECT tbbilling.* FROM tbbilling "
  'If "All" was selected in the listbox, don't add the WHERE condition
   If Not flgSelectAll Then
     StrSQL = StrSQL & StrWhere
     Debug.Print StrSQL
   End If
  ' DoCmd.SetWarnings False
    DoCmd.RunSQL StrSQL
  ' DoCmd.SetWarnings True
  ' Debug.Print StrSQL
  'Clear listbox selection after running query
   For Each VarianteValue In Me.ListBox.ItemsSelected
      me.ListBox.Selected(VarianteValue) = False
   Next VarianteValue
 Exit Sub
ProblemHandle:
  Select Case Err.Number
    Case Is = 5
      MsgBox "You must make a selection(s) from the list" , , "Selection Required !"
    Case Else
      MsgBox ("Error " & Err.Number & " " & Err.Description & "!")
  End Select
Resume Next
   DB.Close
  Set DB = Nothing
  RS.Close
End Sub

 [CODE]StrWhere = " WHERE [tbbilling.benefitsID] in " & _
               "(" & Left(StrIn, Len(StrIn) - 1) & ")"