Che senso ha assegnare la frase SQL alla Sort? Con la SQL ci apri il recordset (con la Open) ...

E poi questa If

If Text3.Text = True Then

che senso ha?