Si ambos, tanto el rptLabel como el rtpImage, están en el encabezado de informe, lo puedes poner así (siguiendo con ejemplo anterior):
Código:
With DataReport1.Sections("Sección4")
' Encabezado de Informe
Set .Controls("Image1").Picture = LoadPicture(sPath)
.Controls.Item("Etiqueta1").Caption = "Título del informe"
End With
Un saludo