Te paso los codigos que tengo.
Código:
'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
Los errores que aparecen estan comentados. Espero que te sirva para que me ayudes.
Gracias, saludos.