> *------------------------- > *--- 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 >Kevin,