ارجو التعديل على كود الترتيب التصاعدي

السلام عليكم 

ارجو التعديل على الكود بحيث يتجاهل  الأرقام  0  و 1 و 2  في عملية الترتيب التصاعدي 

Dim rs As ADODB.Recordset

Set rs = Adodc1.Recordset

If rs.Sort <> DataGrid1.Columns(الكمية).DataField & " DESC" Then


rs.Sort = DataGrid1.Columns(الكمية).DataField & " DESC"

End If

وشكرا لكم