'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