LOCAL loCR as CRAXDRT.Application LOCAL loRpt as CRAXDRT.Report loCR= CREATEOBJECT( "CrystalRuntime.Application") loRpt= loCR.OpenReport( "Any_report.rpt" ) lorpt.EnableParameterPrompting = .F. LOCAL oCProps as CRAXDRT.ConnectionProperties LOCAL DBTable As CRAXDRT.DatabaseTable lnTables = loRpt.Database.Tables.Count FOR h = 1 TO lnTables DBTable = loRpt.Database.Tables(h) oCProps = loRpt.Database.Tables(h).ConnectionProperties oCProps.DeleteAll oCProps.Add("FILEDSN",THISFORM.report_dsn) && Our runtime value && Our missing statement to clear more design time settings DBTable.SetTableLocation ("", DBTable.Location, "") NEXT hThanks,