? DataReport ?

[pabli]

Hola Karlo,

te pongo aquí el ejemplo, si no te funcionara te lo mando. Cópialo y pégalo en tu proyecto pues aquí se ve muy mal.

-------------------------------------------------------------------------
Option Explicit
'Variables de la BBDD
Public Gado_conn As ADODB.Connection 'Abre una conexión
Public Gado_rec As ADODB.Recordset 'Para mandatos Select

Private Sub Form_Load()

'Lo pongo todo en el load pero la apertura de la BBDD y el código del datareport por separado
'*********************************************
'Creo un objeto Connection para abrir la conexión mediante ADO (Para ACCESS)
Set Gado_conn = New ADODB.Connection
Gado_conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bbdd.mdb;Persist Security Info=False"

'Creo un objeto Recordset para consultar
Set Gado_rec = New ADODB.Recordset
Gado_rec.ActiveConnection = Gado_conn
Gado_rec.CursorLocation = adUseClient
Gado_rec.CursorType = adOpenKeyset
Gado_rec.LockType = adLockOptimistic
'*********************************************

'Por otro lado
'*********************************************
'Si está abierto lo cierro
If Gado_rec.state = adStateOpen Then
Gado_rec.Close
End If
'Defino la consulta
Gado_rec.Source = "SELECT campo1, campo2 FROM tabla"
'Abro el recordset
Gado_rec.Open

'OJO, tienen que coincidir los campos de la select con los del datareport
'Asegurate que pones bien los nombres de las secciones y los controles que colocas en ellas
'DATAREPORT 1
DataReport1.Sections("sec4").Controls("Etiqueta0") .Caption = "nombre1"
DataReport1.Sections("sec4").Controls("Etiqueta1") .Caption = "nombre2"

DataReport1.Sections("sec1").Controls("Texto0").Da taField = "campo1"
DataReport1.Sections("sec1").Controls("Texto1").Da taField = "campo2"

'Asigno el recordset al Datareport y lo muestro
Set DataReport1.DataSource = Gado_rec
DataReport1.Show
'*********************************************
End Sub

-------------------------------------------------------------------------

Recuerda añadir las referencias a ADO, son dos(ActiveX library y recordset), y crear el datareport. Cuidado con los nombres.

Saludos
Pablo