Try it without all the extras (also recordsets don't work with action
queries):

Set rstIn = db.OpenRecordset("SortPPX")

or put the SQL directly in the openrecordset statement:

Set rstIn = db.OpenRecordset("Select SuzieQs from Hostess Where Ding
Dongs = 'Yummy!'")