Erreur Automation VB6 et CR10

Bonjour à tous,
voici un morceau du code (celui-ci fonctionnait parfaitement avant sous CR8.5 et ne marche plus sous CR10, je pense donc que l'appel ce fait autrement... ) :

Public sub LancementSousEtatn ()
Dim app As Object
Dim rpt as Object
[...]
set app = CreateObject ("Crystal.CRPE.application") ---> erreur est ici
set rpt = app.OpenReport (FichierRpt)
[...]
set rpt = nothing
set app = nothing
End sub

Merci pour votre aide future, cordialement,
julian