[Resolvido]Verificar campo com Dlookup

Boa noite!
Amigos pesquisei aqui e vi vários Topicos falando da função Dlookup,
porém nada parecido com o que preciso:
Tenho uma tabela Chamada TBL_CAD_MESA preciso inserir um novo registro nessa tabela, porem antes
precisava que a função Dlookup verficasse se o numero da mesa ja existe na tabela.
se não existir então um novo registro seria inserido.
Até aqui td bem, porem o próximo passo seria inserir um registro se o numero da mesa existir e um outro campo da tabela chamada "STATUS",
for igual fechado.
abaixo o código que insere o registro na tabela:

Private Sub BtnAbrir_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset



Set db = CurrentDb()
Set rs = db.OpenRecordset("TBL_CAD_MESA")


rs.AddNew
rs.Fields("COD_MESA") = Me.COD_MESA_DET
rs.Fields("DESCRICAO_MESA") = "MESA " & Me.COD_MESA_DET
rs.Fields("STATUS") = "LANÇADO "
rs.Update
DoCmd.OpenForm "Frm_Fechar_Mesa"

End Sub
antes do código acima ser executado precisava que o Dlookup verificasse os registros na tabela.
Ou seja somente inserir um novo registro se a mesa ja estiver fechada, ou se não existir na tabela.
Alguém tem ideia de como executar a função usando o filtro do campo "STATUS"?

Desde já agradeço pela atenção.

Bom dia mestre Avelino!
Grato pelo retorno.
O problema é que para não cadastrar a mesa novamente, a condição seria se o campo"STATUS"
da tabela estivesse como "Lançado", pois quando a mesa for paga esse campo irar mudar, para "Fechado"
indicando que a referida mesa esta sendo aberta novamente.
a função que voce me passou funcionou perfeitamente no caso da primeira abertura da mesa, porem se eu estiver abrindo a mesa novamente não consigo cadastrar.

Para explicar melhor:
se na tabela "tbl_cad_mesa" existir o numero da mesa, preciso que a função verifique se o campo "Status" dessa tabela esteja como "FECHADO"
para adicionar um novo registro.
Caso o campo "STATUS " esteja diferente de "FECHADO" o registro não seria adicionado.
tentei diversas formas nao deu certo, nao sei como inserir esse filtro na função

Prezado Avelino . fiz uma pequena correção no código de inserção
pois eu mesmo havia me equivocado na hora de escreve-lo.
juntei com sua dica e está funcionado.
muito obrigado!