Visual Basic - Label Datareport

Hola amigos tengo un problema y espero que alguno de ustedes me puedan ayudar. tengo un reporte hecho en el datareport y necesito poner unos campos de una tabla en pageheader como todos saben no puedo poner en dicha seccion un Rpttexbox que todos sabemos que son los que continen los datos de la tabla. bueno alguno sabe como asignarle por medio de algun codigo el campo de esta tabla a una Rptlabel ya que en esta seccion solo se pueden porner dichas label. bueno espero que alguno de Ustedes me puedan ayudar.

Primero creas un recordset (rs) con los campos que quieras incluir, y después pones este código:
With DataReport1.Sections("Section2").Controls
.Item("Label1").Caption = rs.Fields(1)
.Item("Label2").Caption = rs.Fields(2)
.Item("Label3").Caption = rs.Fields(3)
End With

Gracias por tu ayuda amigo. lo que escribiste me funciono pero ahora tengo otro problema, solo me sirve para una sola vez, me explico cuando llamo al datareport el muestra todo lo que yo quiero pero cuando lo corro por segunda vez me sale un error es el # 13 no coinciden los tipos(error 13). bueno te muestro mi codigo para que me digas en que he fallado gracias de nuevo Eduardo.

DataEnvironment1.Commands("command1").CommandText = "SHAPE {SELECT Qctable1.* FROM Qctable1 WHERE joborder= " & Text1.Text & "} as command1 APPEND ({SELECT Qctable2.* FROM Qctable2} as command2 RELATE 'joborder' TO 'joborder') AS command2"
'DataReport1.Sections("pageheader").Controls("label19").Caption = ("hola")
With DataReport1.Sections("pageheader").Controls
.Item("label19").Caption = DataEnvironment1.rsCommand1.Fields("dat")
End With
DataReport1.Orientation = rptOrientLandscape
DataReport1.Show
'DataEnvironment1.rsCommand1.Close
End Sub

esto esta en un formulario que hace la consulta, le puse un boton el cual tiene esta codificacion y cuando lo corro por primera vez funciona vien pero cuando cierro el datareport y hago otra consulta me da el error que te comente (error 13)