crystal report

[Hell08]

averigue como mandar los datos de la base de datos desde Visual a crystal report, pero me sigue apareciendo el mismo error cuando se intenta abrir el reporte en el crystal report. aca les dejo el codigo que utilizo para mostrar el reporte. cualquier ayuda es de mucha utilidad... gracias.

Set crReport = crApp.OpenReport(App.Path & "\Reporte.rpt", 1)

Set result = New adodb.Recordset

Conexion_BD

result.Open "Resultados", Connection, adOpenDynamic, adLockOptimistic

Set reportDb = crReport.Database

Set reportTables = reportDb.Tables

Set reportTable = reportTables.Item(1)

reportTable.SetDataSource (result)

crViewer.ReportSource = crReport
crViewer.ViewReport
Screen.MousePointer = vbDefault