Numerar automatico

Pessoal, vou tentar novamente, no meu campo numeração tem gravado o numero 254551, quero fazer a auto numeração a partir dele, mas a um detalhe: se existir somente ele no campo ai pegaria 254551 mas se existir 254552,254553... ai somaria mais um para gerar o proximo. Sendo que o campo so esta com o 254551 o codigo abaixo esta somando + 1 me retornando 254552 e eu tenho que começar pelo 254551. Tem jeito?

Private Sub CommandButton6_Click()
AtivarBancoLM
   Dim numreg As Long, NovoNumero As Long
    Dim rsParam1 As New Recordset
    Dim Sql As String

    'ABRE A TABELA DE PARÂMENTROS
    'Sql = "SELECT Codigo, max(numeracao)+1 as cod FROM TB_P1 group by Codigo,Numeracao"
    Sql = "SELECT Codigo,Numeracao FROM TB_P1 "
    Set rsParam1 = Banco_LM.Execute(Sql)

With rsParam1
    If .BOF = True And .EOF = True Then
        numreg = 254551
    Else
        .MoveMax
        numreg = !Numeracao
    End If

    NovoNumero = numreg + 1
    TxtNumero.text = NovoNumero

    End With
End Sub