[Resolvido]numeração sequencial

Boa tarde professores!

Minha dúvida parece ser relativamente simples:
No meu formulário de cadastro de contribuintes de um time de futebol tem um campo MatriculaNum (Número da matrícula) do tipo número.(não é numeração automática).
tem também um botão de comando "Nova matrícula" acontece que quando eu clico nesse botão eu eu gostaria que ele limpasse os campos do formulário e do subFormulário dando origem a uma nova mátricula. eu usei a função: Me.txtMatricula = Nz(DMax("MatriculaNum", "TabCadContribuintes"), 0) + 1 no evento "ao clicar " mas quando clico não acontece nada.Testei vários códigos aqui do fórum mas não deu certo. Podem me dizer onde estou errando?

no atual

Código:

If DCount("*", "suaTabela") = 1 Then
        Me.txtNumero = 1
    Else
        Me.txtNumero = DMax("nomeDoCampo", "Sua Tabela") + 1
        End If


Muito obrigado, amigo!