Dear Sir, Alex Feldstein

Please modify your following codes to work with VFP6

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

Thanks