Sólo tienes que agregar éste simple código en un botoncito y al dar clic aparecerá el reporte... Puedes hacer la conexión mediante un DSN o colocando la dirección de ubicación del Report.
No sin antes haber agregado el objeto REPORT que aparecerá como un ícono que en tiempo de ejecución se hará invisible, al cual harás referencia utilizando el nombre que le des en la propiedad NAME del objeto de reporte. Otra nota importante es que el objeto te aparecerá en la tabla de herramientas sólo si lo has agregado el componente de Crystal en Proyecto/Componentes, la pestaña Componentes...
On Error GoTo Salir
REPORTE1.Destination = 0
REPORTE1.WindowState = crptMaximized
REPORTE1.ReportFileName = Nombre_reporte
(puede ser con ruta y todo sino usas DSN)
REPORTE1.Connect = "DSN=SYNERA"
REPORTE1.Action = 1
Exit Sub
Salir:
MsgBox "No se ha encontrado el archivo, pudo haber sido cambiado de su ruta establecida o eliminado!", vbCritical, "uppss": Exit Sub
End Sub
