[VBA/ACCESS] Ordinamento crescente di tabelle

[SerafinoSosi]

Salve ragazzi/e mi chiamo Serafino e sono nuovo del forum.
Segni particolari: sono disperato...

Sono alle prime armi con questo linguaggio e non trovo soluzione. Mi hanno dato un esercizio e non riesco a risolvere una banalità.
Ho creato un database di prodotti suddivisi per categorie in diverse tabelle. Tramite un form con menù a tendina scelgo la tabella e chiedo se si vuole spendere poco oppure scegliere materiali di qualità; a questo punto partendo da un prezzo massimo o da un minimo, a seconda della scelta, la tabella viene correttamente filtrata con i prodotti disponibili.
Ora però devo ottenere un ordinamento crescente, nella stessa tabella, riguardo il campo "Prezzo". Premetto che non posso generare query o creare form "devo esclusivamente lavorare sulla tabella ottenuta".

Intanto questo è il codice:

Private Sub CasellaCombinata88_BeforeUpdate(Cancel As Integer)
               
               'Dichiaro le variabili Tabella e Domanda come stringhe cioè testo'
    
    Dim Tabella As String
    Dim Domanda As String
 

               'Assegno il valore (CasellaCombinata88) alla variabile Tabella così che'
               'la variabile assumerà il valore scelto nel menù a tendina'
     
                Tabella = CasellaCombinata88
              
               'Descrivo un'etichetta di riferimento (Err_Torna) che mi servirà'
               'come controllo per il comando If...Then'
               
               'Eseguo la Domanda di controllo a risposta variabile (si/no)'
               'aprendo una finestra di input.'
               'Si o No saranno le uniche risposte ammesse'

Err_Torna:      Domanda = InputBox(prompt:="vuoi spendere poco? (si/no)")

               'Apro comunque la tabella scelta per visualizzare inizialmente tutti i dati'
                    
                DoCmd.OpenTable Tabella, acViewNormal, acEdit
               
               'Inizio il ciclo If...Then...Else nel quale applico il filtro sul Prezzo'
               'Se rispondo si mi chiederà di inserire un prezzo massimo oltre il quale'
               'non verranno più visualizzati record. Se rispondo no mi chiederà di'
               'inserire un prezzo minimo al di sotto del quale non verranno più
               'visualizzati record.'

                  If Domanda = "si" Then
                     DoCmd.ApplyFilter "", "[Prezzo]<=[inserisci prezzo massimo]"
                  ElseIf Domanda = "no" Then
                     DoCmd.ApplyFilter "", "[Prezzo]>=[inserisci prezzo minimo]"
                  Else: GoTo Err_Torna
          End If
               
End Sub

Che devo fare adesso?
In altri forum mi hanno detto di lavorare su query e su form ma non posso perché l'esercizio non lo richiede.

Grazie ancora per l'eventuale aiuto...

[SerafinoSosi]

Se tramite codice VBA, in Access, volessi aprire una tabella e metterla in ordine crescente per un campo scelto che istruzioni dovrei scrivere?