مشکل با vsflex7.ocx

[Milad Mohseny]

با سلام خدمت دوستان عزیز
من یک برنامه نوشتم که با vsflex7.ocx کار میکند و بر اساس مقادر داخل بانک سطر ها رنگ متفاوتی پیدا میکنند ولی نمی دانم مشکل چیست که فقط بار اول رنگ سطر ها عوض میشود .
اگر میشود این برنامه را ببینید و مشکل آن را به من بگویید . بار اول که روی کلید جستجو کلیک میکنم مشکلی ندارد بار دوم که روی کلید جستجو کلیک میکنم رنگ ها را اعمال نمیکند .

[sasanhe]

Private Sub Command1_Click()
Dim Contor
Set Ado_Student = Ado_Connection.Execute("Select * From Table1")
Ado_Student.ActiveConnection = Nothing
'-------------------------------------------------
Set VSFlexGrid1.DataSource = Ado_Student
Contor = 1
Do While Not Ado_Student.EOF
Select Case Ado_Student!GiveMony
Case 0
VSFlexGrid1.Cell(flexcpBackColor, Contor, 1, Contor, 4) = &HFFA062
Case 1 To 20
VSFlexGrid1.Cell(flexcpBackColor, Contor, 1, Contor, 4) = &HC0FFC0
Case 20 To 30
VSFlexGrid1.Cell(flexcpBackColor, Contor, 1, Contor, 4) = &HC0C0FF
End Select
Ado_Student.MoveNext
Contor = Contor + 1
Loop
'-------------------------------------------------
End Sub

[Milad Mohseny]

با سلام خدمت شما دوست عزیز مشکلم به کلی حل شد باز هم ممنونممممممممممممم