LOCAL lError, cError lError = .F. * ----- Store current Error Handler cError = ON("ERROR") * ----- Set new Error Handler ON ERROR lError = .T. SELECT 0 USE filetopack EXCLUSIVE * ----- Reset Error Handler ON ERROR &cError IF lError = .T. * ----- Table couldn't be opened Exclusively * Display appropriate Error Message ENDIFHope This Helps,