You needed values for each of those properties instead of the name of
the property.

Set rstIn = db.OpenRecordset("SortPPX", dbOpenSnapshot,
dbSQLPassThrough, dbReadOnly) should have read
Set rstIn = db.OpenRecordset("SortPPX", True, False, False) or
whatever it is you wanted for those properties. They are optional
though and most times you don't need them.