Shouldnt it be something like this?

VB Code:
  1. If Datareport1.Sections("Section2").Controls("Text1").Text = "Fail" then
  2. Datareport1.Sections("Section2").Controls("Text1").Text.forecolor=vbred
  3. end if