[Resolvido]Informação apos executar Dlookup

Bom dia a todos tenho a seguinte função num botão de formulario:
ValZero = Nz(DLookup("[VLRTOTAL]", "ExcluirZero") <= 0)
If ValZero Then
MsgBox "Atenção foi verificado que existe pedido abertos em nehum lançamento verifique antes de abrir um novo pedido", vbCritical, "Erro ao abrir pedido"
DoCmd.CancelEvent
Exit Sub
End If
Explicando:
Toda vez que o cleinet vai abrir uma nova venda, o sistema verifica se existe algum pedido que foi aberto , mas nada foi lançado, ouseja ovalro do pedido é ZERO.
Gostaria de saber se exite algum implmentaçao nesse código que informasse ao cliente qual o nuemro do pedido esta zerado.

Desde já agradeço.

Att
Ney Santos

fico de carona

Bom dia Sr Avelino.
Desculpe mas não entendi oque o Sr quiz dizer com meu "ERRO".
A consulta funciona. Envia a a msg. ao susuario.

Boa noite Sr Avelino!
A função faz uma busca atarves de uma consulta, onde os parametros de filtragem,
mostram algum pedido cujo valor seja Zero.
Private Sub BTNOVO_Click()
Dim IsAberto As Boolean

IsAberto = Nz(DLookup("[VLRTOTAL]", "ExcluirZero") <= 0)
If IsAberto Then
Me.PedZero.Visible = True
MsgBox "Atenção foi verificado que existe um pedido aberto sem nenhum lançamento verifique antes de abrir um novo pedido", vbCritical, "Erro ao abrir pedido"
DoCmd.CancelEvent
Exit Sub
End If
E esta e aconsulta que criei:

SELECT VENDAS.IDVENDA, VENDAS.VLRTOTAL
FROM VENDAS
WHERE (((VENDAS.VLRTOTAL)<=0));

Bom dia Sr Avelino:

Desculpe a demora para responder.
Os parametros ve de uma consulta que criei.
Cujo criterio e pedido com valorR$00,00
Att

Ney santos

Bom dia!
Sr Avelino, masi uma vez o Sr matou a cobra e mostrou a cobra morta rss..
Muito obrigado funcionou perfitamente.
Apenas inclui um exit sub para não dar continuiadade ao restante do código, visto que apos a msg ele ainad gerava um novo id do pedido.