[مصمم هاوي]

هذا كود يم فيه استدعاء سجلات المأذونيين حسب اسم المأذون وهو شغالٌ 100%
ولكن عند إختيـار اسم المأذون من الكومبوكس Comboalmadhun وإظهار سجلات المأذون
يتم تعبئة كومبوكس Comborecord بالسجلات.
المشكلة أن أرقام السجلات غير مرتبة تصاعدياً، حاولت ترتيبها ولكن دون جدوى؛ فهل يمكن التعديل على الكود حتى يتم إظهار الأرقام تصاعدياً؟

كود :

Private Sub Comboalmadhun_Click()
'On Error Resume Next: Err.Clear
''''''''''''''''''''''''''''''''''
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close

SQL = " SELECT record  FROM TBL_archives GROUP BY TBL_archives.record, TBL_archives.aism_almadhun HAVING (((TBL_archives.aism_almadhun)='" & Trim$(Comboalmadhun.Text) & "'))"
Text1.Text = SQL
RS.Open SQL, db, adOpenStatic, adLockOptimistic
                      
Comborecord.Clear

For I = 0 To RS.RecordCount - 1
Comborecord.AddItem RS.Fields(0)
Comborecord.ItemData(Comborecord.NewIndex) = RS.Fields(0)
RS.MoveNext
Next
'
End Sub