Dim Report As New CrystalReport2 'concepteur CR
Dim rs As New ADODB.Recordset
' Requête de l'état
sRequete = "SELECT champ1, champ2 FROM TABLE"
' Spécifier la source sur laquelle on se connecte pour récupérer les infos
rs.CursorLocation = adUseClient
rs.Open sRequete, "DATABASE=nom_base;DSN=nom_source_odbc;UID=user;PWD=mot_de_passe;", adOpenKeyset
Report.Database.SetDataSource rs
CRViewer1.ReportSource = Report
CRViewer1.ViewReport