formunuzun en başına ilk satıra Option Compare Database satırını koymadığınız için desc ile DESC  farklı verilermiş gibi yorumlanıyor-büyük/küçük harf duyarlılığı- ve o nedenle işlem yapmıyor
bu durumda ya ilk satıra Option Compare Database eklersiniz yada fonksiyondaki instr() li kısmı aşağıdaki gibi düzenler

xSirala = IIf(InStr(1, Me.OrderBy, "desc", 2) > 0, " asc", " desc")

---

neden formunuza Option Compare Database satırını eklemediğinizi merak ettim, bildiğim kadarıyla varsayılan olarak o satır her yeni forma otomatik olarak eklenir.