*------------------------- *--- Build the USE command *------------------------- IF NOT USED(This.Alias) && Don't reload aliases lcAlias = IIF(EMPTY(This.Alias),'',' ALIAS ' + This.Alias) lcNoData = IIF(This.NoDataOnLoad, ' NODATA', '') lcExclusive = IIF(This.Exclusive,' EXCLUSIVE', ' SHARED') lcUseCmd = 'USE ' + This.CursorSource + lcAlias + ; lcNoData + lcExclusive + ' IN 0' &lcUseCmd ENDIF