سؤال عاجل في ترتيب الحقول تصاعديا

السلام عليكم

عندي قاعدة بيانات (quran) تحتوي على جدولين sora , qr حيث أن الجدول sora هو أسماء السور ويحتوي على حقلين هما id , sora_name - و الجدول qr هو الآيات كلها ويحتوي على ثلاثة حقول id , aya , text , حيث أن aya هو رقم الآية في السورة ,وtext هو نص الآية

المهم الآن أني عملت list box بحيث يمتليء بأسماء السور عند تحميل الفورم , وعند الضغط على أي سورة منه يتم عرض آياتها في dbgride بواسطة أداة data1 حيث استخدمت هذا الكود :

Private Sub List1_Click()
Dim sql As String

sql = "select * from qr,sora where qr.id = sora.id and sora_name = '" & List1.text & "'"

Data1.RecordSource = sql

Data1.Refresh
End Sub

والمشكلة أن الآيات غير مرتبة في dbgrid , وأنا أريد ترتيبها تصاعديا , فما هو الحل ؟

رجاء المساعدة بسرعة

وجزاكم الله خيرا