On Error Resume Next

[Hank II]

Olá Pessoal,

tenho um VB6 (com SP6) em um XP Prof SP1 (com todas as atualizaçoes, menos SP2) onde o Resume Next não está funcionando como devia. Vejam abaixo:

On Error Resume Next

Set db = ArTrab.OpenDatabase(arq, True) 'arq é uma variável com nome do arquivo

If Err = 3024 Then

Ele interrompe a execução no Set e manda uma mensagem à qual só posso responder End e encerrar a execução.

Alguém já teve esse problema?

Obrigado,

Hermínio.

[Hank II]

Pessoal,

a opção Error Trapping (Tools\Options\General) estava setada em "Break on All Errors".

Sorry!