strReportName = "maxusedtools.rpt"
With CrystalReport1
.ReportFileName = GetAppPath() & strReportName
.DataFiles(0) = GetAppPath() & "ATMSVS.mdb"
.Password = Chr(10) &...