[Resolvido]Contar registros, acrescentando +1 com condição

Boa noite,

Estou tentando criar uma rotina no meu formulário para contar os registros que existem na tabela, ou seja, toda vez que eu clicar no botão Novo Registro, aciona a rotina abaixo:

Poderia utilizar a numeração automática, mas estou tentando fazer algo diferente, pelo simples fato que ao você clicar em novo registro, e cancelar, já salva um número automático na tabela, e não fica na sequência correta a númeração, que no meu caso, é o número do pedido. Então na rotina abaixo, coloquei para que se na Tbl_Lancamentos, não obtiver nenhum lançamento, então que no campo Cod_Pedido, fique = 1, mas se tiver algum registro, quero que conte, e coloque + 1, mas acabou não dando muito certo a minha ideia. Alguém poderia me dar um auxilio?

Private Sub Novo_Click()

DoCmd.GoToRecord , , acNewRec

If DCount("Cod_Pedido", "Tbl_Lancamentos") = "" Then

Me.Cod_Pedido = 1

Else

End If
End Sub

Obrigado Marcelo, vou analisar melhor esta situação!