Recomendação de curso:

Eventos WillExecute e ExecuteComplete do ADO

Definição e uso

O evento é uma subrotina automaticamente chamada após a ocorrência de uma operação específica.
O evento WillExecute é acionado antes da chamada de objcomm.Execute, objconn.Execute ou objrs.Open.

Sintaxe
WillExecute src,cursortyp,locktyp,opções,status,objcomm,objrs,objconn

ExecuteComplete refectected,objerror,status,objcomm,objrs,objconn	Descrição
parâmetro	string que contém o nome do comando SQL ou do procedimento armazenado.
cursortyp	define o tipo de cursor a ser usado.CursorTypeEnum um dos valores.
locktyp	define o tipo de bloqueio a ser usado.LockTypeEnum um dos valores.
opções	um ou mais CommandTypeEnum ou ExecuteOptionEnum Valor
reaffected	Valor Long, número de registros afetados pelo comando.
objerror	Objeto Error contendo os erros ocorridos. Notas: O valor de EventStatusEnum deve ser configurado como adStatusErrorsOccurred para criar o objeto Error.
status	um EventStatusEnum valor.
objcomm	Para WillExecute: Se este evento for acionado por Command.Execute, o parâmetro objcomm referenciará o objeto Command e o parâmetro objrs será configurado como Nothing. Para ExecuteComplete: O objeto Command executado.
objrs	Para WillExecute: Se este evento for desencadeado por Recordset.Open, o parâmetro objrs referenciará o objeto Recordset, e o parâmetro pCommand será configurado como Nothing. Para ExecuteComplete: Objeto Recordset, é o resultado da execução do comando.
objconn	Objeto Conexão associado à execução do comando.

Constante	Valor	Descrição
adStatusOK	1	A operação que desencadeou este evento foi bem-sucedida.
adStatusErrorsOccurred	2	A operação que desencadeou este evento falhou.
adStatusCantDeny	3	Não é possível cancelar a operação pendente.
adStatusCancel	4	Cancelar a operação que causou o evento.
adStatusUnwantedEvent	5	Proibir notificações subsequentes antes de completar a execução do método de evento.