VB6 and CrystalReport 9

[rubenintx]

This is the code:

Private Sub mnuProgressReport_Click()

Set oReport = CreateObject("Crystal.CrystalReport")
With oReport
.DataFiles(0) = MsSQLDB.Name
.ReportFileName = ReportsDir & "rptProgress.rpt"
.Destination = crptToWindow
.Action = 1
End With

End Sub