- 'Reporte es el control de CrystalReport 
- Reporte.DataFiles(0) = RutaBD & "BD.mdb" 
- Reporte.ReportFileName = RutaRPT & "Reporte.rpt" 
- 'Aqui inserto la Formula Con Reporte. SelectionFormula 
- Reporte.WindowState = crptMaximized 
- Reporte.Action = 1 
-