non so se è corretto ma sembra funzionare ho fatto così

tipo è il tipo di ordinamento richiesto dall'utente

codice:
 query=query&" ORDER BY DataCarico "&ucase(tipo)&", DataScarico "&ucase(tipo)