lcNewDbc = getfile('DBC') WITH thisform.dataenvironment .closetables lnMembers=amembers(arrObj,thisform.dataenvironment,1) FOR ix=1 to lnMembers IF Upper(arrObj[ix,2])='OBJECT' WITH eval('.'+arrObj[ix,1]) IF upper(.baseclass) = 'CURSOR' and atc('dbc',.Database)>0 .database = lcNewDbc ENDIF ENDWITH ENDIF ENDFOR .opentables ENDWITHCetin