hola micayael,
Código:
'Defino la consulta
Gado_rec_tmp.Source = "SELECT campo1, campo2 FROM tabla"
'Abro el recordset
Gado_rec_tmp.Open
'DATAREPORT 1
DataReport1.Sections("sec4").Controls("Etiqueta2").Caption = "label1"
DataReport1.Sections("sec4").Controls("Etiqueta3").Caption = "label2"
DataReport1.Sections("sec1").Controls("Texto0").DataField = "campo1"
DataReport1.Sections("sec1").Controls("Texto1").DataField = "campo2"
Set DataReport1.DataSource = Gado_rec_tmp
DataReport1.Show
omito la declaración de los objetos de ADO...
Saludos
Pablo