FUNCTION DisplayReport LPARAMETERS sReportFile, aTables oCrystalApp = CREATEOBJECT("CrystalRuntime.Application") oReport = oCrystalApp.OpenReport(sReportFile) FOR nTable = 1 TO ALEN(aTables, 1) sTable = aTables[nTable,1] sAlias = aTables[nTable,2] lFound = SetTableLocation(sTable, sAlias) NEXT IF lFound ** Errors here oReport.PrintOut(.F., .iCopies, .bCollated) ENDIF ******************************************** FUNCTION SetTableLocation LPARAMETERS sTable, sAlias oDataBase = oReport.Database oTables = oDataBase.Tables FOR nTable = 1 TO ALEN(aTables, 1) sTable = aTables[nTable,1] sAlias = aTables[nTable,2] FOR iTable = 1 TO oTables.Count oTable = oTables.Item(iTable) IF cAlias = UPPER(ALLTRIM(oTable.Location)) lFound = TRUE oTable.SetTableLocation(cTable, JUSTSTEM(cTable), "") EXIT ENDIF ENDFOR NEXT RETURN lFound>Are you using native Crystal data connections?