Data report - varios registros

[lokoman]

Hola!!
Tienes unos cuantos puntos por arreglar....
•tu conexion se llama "CON"
•el reporte se llama DataReport1, si tienes otro nombre no te va a salir la propiedad..
•debes agragar textboxes (RptTextBox ) en la seccion1 del data report, si no lo haces te dará error..
•la seccion1 es la seccion de detalle en el reporte, ahí debes poner tantos RptTextBox como campos en tu query, ejemplo si tu query invoca 2 campos, entonces debes poner 2 RptTextBox, si pones de mas o de menos, te dará error...
•debes corregir la linea"
Set .DataSource = nothind ' la "D" no va...
por
Set .DataSource = nothinG
•declarar el recordset:
dim rsData as ADODB.recordset
set rsData =new ADODB.recordset
-------------
'Set rs = con.OpenRecordset("select *from cliente")
rsdata = rs 'ACA MARCA ERROR (uso no valido de la propiedad)
rsdata.OpenRecordset , conextion, adOpenForwardOnly, adlockreadonlny
If Not rsdata.EOF Then
With DataReport1
Set .DataSource = nothind 'ACA NO ENCUANTRO LA PROPIEDAD (.DataSource)
.DataMember = ""
Set .DataSource = rsdata.DataSource

With .Sections("section1").Controls 'section1 ES UN CAMPO DEL DATA REPORT?? (objeto no encontrado)
For X = 1 To Count
If TypeOf .Item(X) Is RptTextBox Then 'RptTextBox (la variable no esta establecida)
.Item(X).DataMember = ""
.Item(X).DataField = rsdata.Fields(X - 1).Name
End If
Next X
DataReport1.Show vbModal 'muestras tu datareport..
End With
End With
End If 'rsdata.eof