PROTECTED PROCEDURE SetSubReportTables(tcHeaderDBF AS String) AS VOID LOCAL loAreas, loRF, loSections, loSection, loObject, ; loSubRpt, loCrData, loCrTables, loCrTable, loRO * Get a reference to the Areas collection loAreas = This.oReport.Areas() * Get a reference to the Report Footer loRF = loAreas.Item("RF") * Get a reference to the sections collection loSections = loRF.Sections() FOR EACH loSection IN loSections * Get a reference to the Report Objects collection loRO = loSection.ReportObjects() FOR EACH loObject IN loRO IF loObject.Kind = 5 * This object is a subreport (Kind = 5) loSubRpt = loObject.OpenSubreport() loCrData = loSubRpt.Database() loCrTables = loCrData.Tables loCrTable = loCrTables.Item(1) loCrTable.Location = tcHeaderDBF * Verify the database loCRData.Verify() ENDIF ENDFOR ENDFOR ENDPROC>Hi craig,