En el encabezado no puedes poner un rptTextBox, pero sí un rptLabel y ahí colocas el nombre del usuario.
y para colocar una imagen:
Código:
With DataReport1.Sections("Sección4")
Set .Controls("Image1").Picture = LoadPicture(sPath)
End With
donde sPath será la ruta completa y la imagen elegida.