Visual Basic 6.0 con Cryatal Report 8

[jrp01]

Yo utilizo VB 6 con Crystal 8.5 Developer y los hago de la siguiente forma

En Referencias del proyecto selecionas

Crystal Report Engine 8 Object library
Crystal Report 8.5 ActiveXDesigner Run time library

en el codigo:

Dim crpApplication As CRPEAUTO.Application ' Variable para crear una aplicación de Cristal con Automation Server
Dim crpReport As CRPEAUTO.Report ' Variable para abrir el reporte
Dim crpDatabase As CRPEAUTO.Database ' Variable para la Base de Datos
Dim crpTables As CRPEAUTO.DatabaseTables ' Variable para tablas de la base de datos
Dim crpTable As CRPEAUTO.DatabaseTable ' Variable para una tabla
Dim rs As ADODB.Recordset
Dim repView As View
Dim cn As New ADODB.Connection

'si es access si no la cambias
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tu_BD.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=hola"

sentencia = "Tu sentencia SQL"
Set rs = cn.Execute(sentencia)
Set crpApplication = CreateObject("crystal.crpe.application")
Set crpReport = crpApplication.OpenReport(App.Path & "\Reporte.rpt")
Set crpDatabase = crpReport.Database
Set crpTables = crpDatabase.Tables
Set crpTable = crpTables.Item(1)
Call crpTable.SetPrivateData(3, rs)
Set CrSections = crpReport.Sections
crpReport.ReadRecords
Set repView = crpReport.Preview("Mi reporte", 0, 0, 800, 600)


Mis reportes los hice definidos por tabulacion .TTX asi no dependo de un ODBC

Espero que te sirva