HELP With Graph On Report

I am trying to change the fill colors on a bar graph based on the value the bar graph has.

the bar graph gives the percentages of tasks and I would like to have it so that the fill color of a bar is based on the a set of values for the percentage... so if the percentage of task A is between 0 and 25% it should be red, if percentage of task A is between 25% and 50% it should be yellow, and if the percentage of task A is between 50% and 100% it should be green.


this is the query that the graph is based off of
Code:SELECT TEST_RawData.DeliverableDesc, FormatPercent(Avg(PercentComplete)) AS CurrentProgressFROM TEST_RawDataGROUP BY TEST_RawData.DeliverableDesc;


This is the data table of the graph
DeliverableDesc | CurrentProgress
test 1 | 82.64%
test 2 | 55.75%
test 3 | 30.09%
test 4 | 13.00%

now I have looked at this http://support.microsoft.com/?kbid=200527 and tried to remodel it to my situation but have some concerns. This is what I have so far
vba Code: Original - vba Code Private Sub Report_Open(Cancel As Integer) Dim chtObj As Object, strRowSource As String Dim rsRowSourceFiltered As Recordset Dim i As Integer, j As Integer Dim strArrTaskPercents() As String Dim intArrTaskColors() As Integer ' The color integers are those that are used by the QBColor function to assign point colors. Const cBadProgress_Red = 4 Const cOkayProgress_Yellow = 6 Const cGoodProgress_Green = 2 ' Place all the task percents values into an array. ReDim strArrTaskPercents(3) strArrTaskPercents(1) = "10.00%" strArrTaskPercents(2) = "25.00%" strArrTaskPercents(3) = "50.00%" ' Place the task color values into an array. ReDim intArrShipperColors(3) intArrTaskColors(1) = cBadProgress_Red intArrTaskColors(2) = cOkayProgress_Yellow intArrTaskColors(3) = cGoodProgress_Green Set chtObj = Me!Graph10.Object strRowSource = "SELECT TEST_RawData.DeliverableDesc, FormatPercent(Avg(PercentComplete)) AS CurrentProgress FROM TEST_RawData GROUP BY TEST_RawData.DeliverableDesc;" Set rsRowSourceFiltered = CurrentDb.OpenRecordset(strRowSource, dbOpenSnapshot) ' Check to see if the filtered recordset has any records. If rsRowSourceFiltered.BOF And _ rsRowSourceFiltered.EOF Then MsgBox "There are no records to chart." Exit Sub End If ' Loop through the recordset containing the chart's filtered RowSource. rsRowSourceFiltered.MoveFirst i = 0 While Not rsRowSourceFiltered.EOF ' Index i synchronizes the Points collection index with the current recordset row. i = i + 1 ' Loop through the task percents array and look for a match with the field names of the chart's filtered RowSource. For j = 1 To UBound(strArrTaskPercents) ' 1-based ' The first field in the recordset contains the task percent. Some tasks may not be in the filtered recordset. If rsRowSourceFiltered.Fields(0).Value = strArrTaskPercents(j) Then ' Because every task has a corresponding color, the arrays strArrTaskPercents and intArrTaskColors always contain the same number of elements. Assign the color of the chart column, bar, slice etc. Graph10.SeriesCollection(1).Points(i). _ Interior.Color = QBColor(intArrTaskColors(j)) End If Next rsRowSourceFiltered.MoveNext WendEnd Sub Private Sub Report_Open(Cancel As Integer)   Dim chtObj As Object, strRowSource As String   Dim rsRowSourceFiltered As Recordset   Dim i As Integer, j As Integer   Dim strArrTaskPercents() As String   Dim intArrTaskColors() As Integer   ' The color integers are those that are used by the QBColor function to assign point colors.   Const cBadProgress_Red = 4   Const cOkayProgress_Yellow = 6   Const cGoodProgress_Green = 2            ' Place all the task percents values into an array.   ReDim strArrTaskPercents(3)   strArrTaskPercents(1) = "10.00%"   strArrTaskPercents(2) = "25.00%"   strArrTaskPercents(3) = "50.00%"            ' Place the task color values into an array.   ReDim intArrShipperColors(3)   intArrTaskColors(1) = cBadProgress_Red   intArrTaskColors(2) = cOkayProgress_Yellow   intArrTaskColors(3) = cGoodProgress_Green      Set chtObj = Me!Graph10.Object      strRowSource = "SELECT TEST_RawData.DeliverableDesc, FormatPercent(Avg(PercentComplete)) AS CurrentProgress FROM TEST_RawData GROUP BY TEST_RawData.DeliverableDesc;"      Set rsRowSourceFiltered = CurrentDb.OpenRecordset(strRowSource, dbOpenSnapshot)     ' Check to see if the filtered recordset has any records.   If rsRowSourceFiltered.BOF And _      rsRowSourceFiltered.EOF Then         MsgBox "There are no records to chart."         Exit Sub   End If         ' Loop through the recordset containing the chart's filtered RowSource.      rsRowSourceFiltered.MoveFirst      i = 0      While Not rsRowSourceFiltered.EOF         ' Index i synchronizes the Points collection index with the current recordset row.         i = i + 1         ' Loop through the task percents array and look for a match with the field names of the chart's filtered RowSource.         For j = 1 To UBound(strArrTaskPercents) ' 1-based            ' The first field in the recordset contains the task percent. Some tasks may not be in the filtered recordset.            If rsRowSourceFiltered.Fields(0).Value = strArrTaskPercents(j) Then                  ' Because every task has a corresponding color, the arrays strArrTaskPercents and intArrTaskColors always contain the same number of elements. Assign the color of the chart column, bar, slice etc.                  Graph10.SeriesCollection(1).Points(i). _                     Interior.Color = QBColor(intArrTaskColors(j))            End If         Next         rsRowSourceFiltered.MoveNext   WendEnd Sub


these are my concerns
- first is the strucutre and syntax for the above Sub Report_Open good?
-second how do I match percents the query is outputting to the table to the percents I write in the strArrTaskPercents array
-third how would I change how it matches percents so that it matches a range of percentages, like the first example if something is between 50% and 100% it should be green.

if anyone can directly help with the code, or indirectly point me to some examples, articles, etc. that might help me it would be greatly appreciated.