Amigo, é bem simples, confira:
Dim secao As Variant
Dim Label As Variant
For Each secao In DrtRelatorio.Sections
For Each Label In secao.Controls
If Label.Name = "label1" Then 'Label1 é o nome do objeto no relatório.
Label.Caption = "teste"
End If
Next Label
Next secao
Acho que este código se auto-explica... se tiver dúvida entre e contato por e-mail