I'm using:

Code:
...
Set dbsAddresses = CurrentDb
'loop tablenames
      For Each tblLoop In dbsAddresses.TableDefs
      With tblLoop
         
        Combo4.AddItem (.Name)
       
      End With
   Next tblLoop
   'loop querynames
   For Each queLoop In dbsAddresses.QueryDefs
      With queLoop
         
        Combo4.AddItem (.Name)
       
      End With
   Next queLoop
...
As a result in the Combobox I have the tablenames and the querynames including the following:

MSysAccessObjects
MSysAccessXML
MSysACEs

etc.
I don't need them. How can I avoid displaying those names in the Combobox?