Changing background colors

[usenix1]

I need this to change color according to the information, according to the date. My logic works but the color stays the same, would anyone have words of wisdom to assist me in changing the colors?

If (Today = DayRec) Abd (Today <> NextDay) Then
If WhatColour = vbWhite Then
OldColour = Reports!CAFC_MeetingSummary.Detail.BackColor 'Gray Colour
Reports!CAFC_MeetingSymmary.Detail.Backcolor = 12632256

Else
' End If
' If WhatColour <> vbWhite Then
OldColour = Reports!CAFC_MeetingSummary.Detail.BackColor
Reports!CAFC_MeetingSummary.Detail.BackColor = vbWhite
End If

End If

'Pass Next Day Confirmation Value
If (Today <> NestDay) Then
DayRec = NextDay
End If

Debut.Print
rstData.MoveNext
Loop
'End the Recordset Loop

'Close the Recordset object.
rstData.Close
'End With

' Close connection and destroy object variables.
cnnConn.Close
Set rstData = Nothing
Set cnnConn = Nothing

End function




Please advise.

 

[Mile-O]

Please stick to one thread on this subject - all others have been removed.