... TDatabase():New( , "CUST1", "DBFCDX", .F. ) // exclusive oData:use() // AppendFrom( cFile, aFields, bFor, bWhile, nNext, nRec, lRest ) oData:AppendFrom( "CUST2" ) oData:Close() oData := TDatabase():New( , "CUST1", "DBFCDX", .T. ) // shared oData:use() ...