[CR 9] Appel avec VB6 d'un état composé de sous-états

[seyiv]

Bonjour à tous,
Je conçois mes états avec Crystal report 9 et je les appelle avec VB6.
Quand j'appelle des états simples, ils s'ouvrent normalement.
Mais quand j'appelle un état composé de sous-états, je reçois le message d'erreur suivant :
Logon failed.
Details:28000:[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'PBUser'.

Voici le code d'affichage de l'état composé des sous-rapports :
Set CrxReport = crxApplication.OpenReport(App.Path & "\EtatListRapp.rpt")
'Set CrxSReport1 = crxApplication.OpenReport.OpenSubreport(App.Path & "\SousEtatListAchaDepoRapp.rpt")
'Set CrxSReport2 = crxApplication.OpenReport.OpenSubreport(App.Path & "\SousEtatListBLRapp.rpt")
'Set CrxSReport3 = crxApplication.OpenReport.OpenSubreport(App.Path & "\SousEtatListDepeRapp.rpt")
'Set CrxSReport4 = crxApplication.OpenReport.OpenSubreport(App.Path & "\SousEtatListVersRapp.rpt")
CrxReport.DiscardSavedData
CrxSReport1.DiscardSavedData
CrxSReport2.DiscardSavedData
CrxSReport3.DiscardSavedData
CrxSReport4.DiscardSavedData
Set AdoRs1 = New Recordset
Set AdoRs2 = New Recordset
Set AdoRs3 = New Recordset
Set AdoRs4 = New Recordset
Set AdoRs5 = New Recordset
AdoRs1.Open "Select * from V_ETAT_RAPPORT Where V_ETAT_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs2.Open "Select * from V_SOUS_ETAT_BL_RAPPORT Where V_SOUS_ETAT_BL_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs3.Open "Select * from V_SOUS_ETAT_ACHATDEPOT_RAPPORT Where V_SOUS_ETAT_ACHATDEPOT_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs4.Open "Select * from V_SOUS_ETAT_DEPENSE_RAPPORT Where V_SOUS_ETAT_DEPENSE_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs5.Open "Select * from V_SOUS_ETAT_VERSEMENT_RAPPORT Where V_SOUS_ETAT_VERSEMENT_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
CrxReport.Database.Tables(1).SetDataSource AdoRs1, 3
CrxSReport1.Database.Tables(1).SetDataSource AdoRs2, 3
CrxSReport2.Database.Tables(1).SetDataSource AdoRs3, 3
CrxSReport3.Database.Tables(1).SetDataSource AdoRs4, 3
CrxSReport4.Database.Tables(1).SetDataSource AdoRs5, 3

Voici le code d'appel de l'état :
'------Contrôle d'accès---------
If Not ControleGroupe(VarGroupe, "ETA1", "IMPRI") Then
Message (49)
Exit Sub
End If
'-------------------------------
mCodeRapport = Val(txtFields(0).Text)
Rapport = 32
LstViewer.Show vbModal
Exit Sub