>Local lError >Try > OPEN DATABASE cFolder2+'\TABLES\ACCOUNT.DBC' > USE vouchers EXCLUSIVE > ZAP > USE VOU_SUM EXCLUSIVE > ZAP > USE VOU_NO EXCLUSIVE > ZAP >Catch to oErr > lError = .T. > * you could use oErr exception object information to see what happenned. >Endtry > >If lError > MessageBox("Error erasing data") > Return .F. >Endif >>