<snip>
Alex,

He's using VFP 6 so TRY ... ENDTRY is not an option. Unless you're suggesting he upgrade? :-)

Regards,
>
>

>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
>

>
>Note: You do not need to open the DBC Exclusive, just the DBFs.