[Resolvido]Numero automatico

Boas pessoal.
Amigos uma funçãozinha para colocar no botão novo pra quando clicar ele gerar um novo nº no CodProduto automaticamente.


https://dl.dropboxusercontent.com/u/90217826/Database1.rar

Código:

        DoCmd.GoToRecord , , acNewRec  'INCLUIR NOVO REGISTRO
        Me!codProduto.SetFocus
        codProduto = txtultimo + 1
Exit_NovoRegistro_Click:
    Exit Sub
Err_NovoRegistro_Click:
    MsgBox Err.Description
    Resume Exit_NovoRegistro_Click[code][/code]

Valeu amigo,obrigado.