CrystalReport1.DataFiles(0) = "db1.mdb"
CrystalReport1.ReportFileName = "Report1.rpt"
CrystalReport1.Action = 1