could'nt you use

if used('filename')&& returns .t. if open
select filename
use filename exclusive
else
use filename exclusive
endif

hope this helps
James