[Resolvido]Campo numero sequencial

Senhores do Forum. Boa noite!

Em um formulário tem um campo "NumeroSequencial", que funciona tipo Auto Numeração no qual utilizo o código abaixo no evento atual do formulário.
If Me.NewRecord Then
On Error Resume Next
Me![NumeroSequencial].DefaultValue = Nz(DMax("[NumeroSequencial]", "tbl_GERAL"), 1) + 1 - 1
End If

O código tá funcionando legal. O problema é que o BD já possui cerca de mil registros e gostaria de saber se alguém no forum sabe uma forma de incrementar o código acima para que conte os registros já exitente, continuando a sequncia após o último, pois o campo somente começa a registrar em novo registro. Ou seja, se já houver 100 registros, o código inicia a contagem a partir do 101 e començando com 1. Caso alguém saiba uma forma de incrementa, agradeço.
Obrigado a todos

Colega Norbs,

Não funcionou. Não contou os registros existentes.
Obrigado pelo empenho.

Colega Norbs,

o código que estou usando só conta os registros que são inseridos após a sua implementação. Já existia no BD 1864 registros quando implementei o código
em questão. Então ele vai começar a contar a partir do registro 1865, assim:

o registro 1865 ele vai registrar no campo "NumeroSequencial" 0001;
o registro 1866 ele vai registrar no campi "NumeroSequencial" 0002 e assim sucessivamente.
O que estou precisando (caso seja possível) é de um código que faça a contagem desde o primeiro registro e não apartir do novo. Ou seja, que comece com 0001 e ao chegar em 1864 (que é o último registro antes de implementar o código) que continue 1865, 1866, etc.
Caso não seja possível um código, terei que redigitar um por um dos registro para que funcione perfeitamente.
Qualque esclarecimento, é só perguntar.
Agradecido.

Colega Norbs,

me desculpe, mas não entendi e não visualizei onde implementar o código enviado. Pelo meu parco conhecimento, vc utiliza dois campos (DataOrca e CodRec) em uma tabela tabNF, para ter um número sequencial, correto?
Se for, eu só tenho um campo de número sequencial de nome "IdAfiliado", um formulário frm_Cadstro_Geral e uma tebela Tbl_Geral.
Assim, solicito-lhe a gentileza de me orientar onde poria o código que vc utiliza.
Agradeço.
Abraços

Colega Norbs,
agradeço a sua colaboração e sei que o código enviado se refere a um outro aplicativo que não o meu.
Obrigado.

Senhores,
continuando com dificuldades no campo numeração sequencial.
Uso o código abaixo para implementar uma sequencia numérica:

If Me.NewRecord Then
On Error Resume Next
Me![NumeroSequencial].DefaultValue = Nz(DMax("[NumeroSequencial]", "tbl_GERAL"), 0) + 1
End If

este código é implementado no evento atual do formulário. O que está ocorrendo é o seguinte: a numeração gerada no campo "NumeroSequencial" não coincide com a quantidade de registros existentes na tabela Tbl_Geral (fonte de registro). Ou seja, se na tabela há 30 registros, a numeração do campo em questão registra 29. E se ativo o indice de "indexado com duplicação não autorizada" na tabela dá erro informando duplicidade de dados, pois no campo "NumeroSequencial" gera numero de registro já existente. E ainda, se zero a tabela (apagando os registros), o código começa a contar depois do 2 registro. No registro "1" da tabela aparece no campo "0000" e não "0001". Alguém saberia me ajudar nesta dificuldade? Para tanto, informo as demais implementações exitentes relativas a este campo.

Nas propriedades do formulário:

Filtro = [IdAfiliado]=2
Classificado = [tbl_GERAL].IDAfiliado
No Atual está o código como já citado

Nas propriedades do campo:

Fonte do controle = IdAfiliado
Formato = 0000
Valor padrão = 2

Desde já agradeço a todos.

Meste tendo sido solucionado fui tentar uma outra forma de criar uma numeração automática como forma de treinar e aprender um pouco.
Pensei em utilizar a função while e Dlookup. A ideia seria procurar na tabela o valor da numeração e, enquanto o valor for encontrado, incrementar uma variável. Quando finalmente o valor for nulo, incrementar a variável mais uma vez (para gerar o próximo item da numeração) e atribuir o valor dessa variável ao campo numeração.

Como não sou experiente em VBA tenho certeza q escreve o código com muitos erros (peço desculpas por isso).
Alguém do fórum poderia dizer se esta lógica funciona e como escrever o código corretamente?
Pensei em algo mais ou menos assim:

Dim cod As Integer

cod = 0

Do While DLookup
If IsNoNull(Me![numeração]) then
cod = cod + 1
Loop

End while

[numeração].Value = cod

Boa tarde, nilson.cordeiro
Tenho visto mensagens suas e parece-me que coloca dúvidas em temas já resolvidos.
Tem sido assim? Se fôr, separar-lhe-ei e, de futuro, respeite a organização do fórum: Nova dúvida->Novo tema
Aguardo...