[amer2000]

السلام عليكم ورحمة الله وبركاته 
Private Sub Command8_Click()


On Error Resume Next

ConnectionDatabase
If RS_Data1.State = adStateOpen Then RS_Data1.Close

RS_Data1.Open "Select * From CASES Where [outcome]='" & Combo18.Text & "'", DB, adOpenStatic, adLockOptimistic

If RS_Data1.RecordCount > 1 Then
Set MSHFlexGrid1.DataSource = RS_Data1
Label1.Caption = RS_Data1.RecordCount
Else
Set MSHFlexGrid1.DataSource = RS_Data1
MSHFlexGrid1.Clear

Label1.Caption = RS_Data1.RecordCount

End If

If RS_Data1.State = adStateOpen Then RS_Data1.Close
If DB.State = adStateOpen Then DB.Close
end if

---

السؤال ؟


اريد مثلا فرز النتائج :

    الاسم      النتيجة
   احمد          سلبي
   عمر           ايجابي
  خالد       
   عامر     
   منير          سلبي

اذا فرزت الايجابي   او السلبي بيظهر 

لكن كيف افرز بدون نتائج وهي الفرغه مثل خالد و عامر    ...