Amigos:
tengo un problema no se como mostrar un datareport sin dataenvironment,

ejemplo
Private Sub Command3_Click()
RPTcotizacion.Show
End Sub

me sale error
"Origen de datos no válido"

ayudenme...
alfredo

hay varios motivos por los cuales quieras mostra un reporte si conexion a un dataEviroment pero si lo q quieres es mostrar un reporte donde puedas poner etiquetas q luego le daras valores a traves de variables puedes hacer esto

Dim rs As New ADODB.Recordset '//esta variable es a nivel modulo

Private Sub Command1_Click()
rs.Fields.Append "Col6", adLongVarChar, 25 '//le creas un campo al recodset para simular data
rs.Open
Set DataReport1.DataSource = rs '//le asignas el recordset al datareport
DataReport1.Show '// y lo muestras
End Sub

cualquier otra duda o si no entendistes comunicate a
davidsryl@hotmail.com

Me funcionó:

Dim rs As New ADODB.Recordset '//esta variable es a nivel modulo

rs.Fields.Append "Col6", adLongVarChar, 25 '//le creas un campo al recodset para simular data
rs.Open
Set Cotizacion.DataSource = rs '//le asignas el recordset al datareport

Cotizacion.Sections("Sección1").Controls.Item(1) = MSFlexGrid1.TextMatrix(1, 2)'// tengo dramas aqui...

Cotizacion.Show '// y lo muestras

pero tengo dramas al mandar un datos de un flexgrid a un text del datareport..
error 438
gracias---Edited by: kool

Cotizacion.Sections("Sección1").Controls("Etiqueta 1").caption=MSFlexGrid1.TextMatrix(1, 2)

hola tengo un problema con el data report alguien seria tan amable de ayudarme por favor?