On Error GoTo errImprimir
CrystalReport.DataFiles(0) = "C:\Base\base.mdb"
CrystalReport.SelectionFormula = "CDbl({Tabla.Costo})=SUM(CDbl({Tabla.Costo}))
CrystalReport..ReportFileName = "C:\Base\RptCosto.rpt"
CrystalReport.WindowState = crptMaximized
CrystalReport.Action = 1
End If