هل يمكن عملية الفرز في قاعدة البيانات

السلام عليكم...

1. في زر عرض السجلات التي بها أرقام:

    If RS2.State = 1 Then RS2.Close
    RS2.Open "Select * From Nme WHERE (Album IS NOT NULL)"
    DataGrid1.ReBind

2. في زر عرض السجلات التي ليس بها أرقام:

    If RS2.State = 1 Then RS2.Close
    RS2.Open "Select * From Nme WHERE (Album IS NULL)"
    DataGrid1.ReBind

3. للعودة إلى عرض كافة السجلات:

    If RS2.State = 1 Then RS2.Close
    RS2.Open "Select * From Nme"
    DataGrid1.ReBind

إذا تسبب السطر DataGrid1.ReBind في مشكلة فاستعمل: Set DataGrid1.DataSource = RS2

نرجو الاستفادة و السلام.

استاذ najy_zl اشكرك علي سرعة الرد

وكذلك اشكرك علي الاكواد

كل التقدير