VB6 y Crystal Reports XI

[Insomnia]

Hola

Pongo el código que utilizo para enlazar el recodset a un informe Crystal X.

Código:

    bd.Open sConexion
    
    RegInfo.Open "SELECT cod, Archivo from erroreak", bd, adOpenDynamic, adLockReadOnly
    Screen.MousePointer = 11
    
    Set CrxInfor = CrxApp.OpenReport(App.Path & "\informiek\erroreak.rpt")
    
    CrxInfor.DiscardSavedData
    CrxInfor.Database.SetDataSource RegInfo
    
    With CrystalActiveXReportViewer1
        .ReportSource = CrxInfor
        .EnableExportButton = True
        .DisplayGroupTree = False
        .EnablePopupMenu = False
        .EnableDrillDown = False
        .EnableSelectExpertButton = False
        .ViewReport
        .Zoom 100
    End With

--Saludos--