Como Pasar Una Consulta A Crystal En Vb 6.0

[vampira]

mira yo he hecho esto para imrpimir los pagos de un alumno.. uso un DBList ke me muestra los alumnos y tiene asociado el id del alumno..

strFormula = "{pagos.id_alumno}='" & Me.DBLAlumnos.BoundText & "'"

luego cuando mando abrir el reporte pongo esto

Me.CrystalReport1.WindowTitle = Me.txtWindowTitle 'titulo d ela ventna
Me.CrystalReport1.DataFiles(0) = Me.txtReportDBName 'nombre d ela base de datos
Me.CrystalReport1.ReportFileName = Me.txtReportName 'nombre del reporte
Me.CrystalReport1.ReplaceSelectionFormula (strFormula)

tal vez esto te sirva...