Could just change it to a Query

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "MSYS*") AND ((MSysObjects.Type) In (?)))
Can't remember which number the ? should be

You could use an Array.

Private Sub PopulateCombo()

    Dim obj As AccessObject, dbs As Object
    Dim tableArray As Variant, pattern As Variant

    Set dbs = Application.CurrentData

    tableArray = Array("PRT*", "JCT*", "APM*", "GLM*")

    For Each obj In dbs.AllTables
        For Each pattern In tableArray
            If obj.Name Like pattern Then
                comboTable.AddItem obj.Name
                Exit For
            End If
        Next
    Next
    
End Sub

This worked great. Now I'm using that code to scroll through LINKED tables and using CurrentDB.execute to run some MAKE TABLE SQL in another database. But I get the Table {name} already exists error 3010. I've turned the warnings off at the database level in the Options-Client Settings-Confim Action Queries. And I'm using the Setwarnings False code. If I run it from a saved Query, it works fine. But trying to use MakeTable SQL with VBA doesn't. See my code below.

I failed to say: The code runs fine when there are not tables in the destination database. I'm wanting to overwrite them because I want to automate this whole process with the Task Scheduler in off hours.

Okay, I changed the CurrentDb.Execute to DoCmd.RunSQL and it works. Great. Why??