Gianluca, posto la routine quasi per intero, salvo la connessione al DB, spero che ti sia utile perchè altrimenti non saprei cosa indicarti:
codice:
' Controlla che il DB contenga i dati da visualizzare:
  If RSTpr4.EOF = False And RSTpr4.BOF = False Then
  ' Assegna il riferimento all'oggetto:
     Set DRDiff.DataSource = RSTpr4
   ' Inserisce i dati nel DataReport:
     With DRDiff.Sections("Section1")
         .Controls("Txt1").DataField = "Reg"
         .Controls("Txt2").DataField = "Dep"
         .Controls("Txt3").DataField = "Pro"
         .Controls("Txt4").DataField = "Res"
         .Controls("Txt5").DataField = "Val"
         .Controls("Txt5").Font.Bold = True
     End With
'... ... ... ...
Ti confermo che così ottengo il grassetto nel controllo Txt5