[Resolvido]Função DCount

Boa noite
Estou tentando aplicar a Dcount numa Caixa de texto, para contar os registros que lanço numa outra Caixa de texto afim de conferir e travar alguns campos.
Estou usando esse código:

Private Sub txtProtocoloExecucao_AfterUpdate()
Dim regs As Integer
regs = DCount("ProtocoloExecucao", "tabmedicaoservicos", "txtprotocoloexecucao" =
Me.txtProtocoloExecucao.Value)
Texto49 = regs
End Sub

Como imaginam, não funciona, onde erro?

Não seria no evento no atual?
Quanto ao erro, eu que pergunto, qual?

Marcelo, a função não está contando, eu lancei outros dados iguais mas ela não conta os repetidos.

Se o campo txtprotocoloexecucao é texto tem de levar as aspas simples;

regs = DCount("ProtocoloExecucao", "tabmedicaoservicos", "txtprotocoloexecucao='" & Me.txtProtocoloExecucao.Value & "'")

Muito obrigado Marcelo e JPaulo, deu certo!

Garto pelo retorno, forte abraço!