VBA conditional formatting

Hi. I've put the code below in to my form and the ID field formats red, green and yellow fine, however, the time_limit field is purely red. Is it not possible to use dynamic conditional formatting in vba or is there something wrong with my code? Thanks. David.

Private Sub Form_Load()

Dim objFrc As FormatCondition

'delete existing formats
Me.ID.FormatConditions.Delete
Me.TIME_LIMIT.FormatConditions.Delete

'create three format objects and add them to the FormatConditions collection
Set objFrc = Me!ID.FormatConditions.Add(acFieldValue, acLessThan, 4)
Set objFrc = Me!ID.FormatConditions.Add(acFieldValue, acEqual, 4)
Set objFrc = Me!ID.FormatConditions.Add(acFieldValue, acGreaterThan, 4)

'create three format objects and add them to the FormatConditions collection
Set objFrc = Me!TIME_LIMIT.FormatConditions.Add(acFieldValue, acLessThan, DATE)
Set objFrc = Me!TIME_LIMIT.FormatConditions.Add(acFieldValue, acEqual, DATE)
Set objFrc = Me!TIME_LIMIT.FormatConditions.Add(acFieldValue, acGreaterThan, DATE)

'format the time_limit text box with each condition
With Me.ID.FormatConditions(0)
.BackColor = vbGreen
End With

With Me.ID.FormatConditions(1)
.BackColor = vbYellow
End With

With Me.ID.FormatConditions(2)
.BackColor = vbRed
End With

With Me.TIME_LIMIT.FormatConditions(0)
.BackColor = vbGreen
End With

With Me.TIME_LIMIT.FormatConditions(1)
.BackColor = vbYellow
End With

With Me.TIME_LIMIT.FormatConditions(2)
.BackColor = vbRed
End With

End Sub