Tiranossuro, o campo era chave primária antes de o problema ser detectado. Para resolver, tirei chave e criei um novo campo chamado Ano, que recebe o ano corrente toda vez que é salvo um registro. Abaixo segue o código, em princípio está funcionando e agradeço a todos pela ajuda, opinem a respeito, depois eu fecho o tópico:

Dim AnoCont As Integer

Dim AnoValor As Integer

‘objeto para pegar a data

DTPicker2.Value = Date

‘se o último registro for zero, então recebe 1

If Rst.RecordCount = 0 Then

LblCodi.Text = 1

Exit Sub

End If

‘variável recebe o ano

AnoValor = DTPicker2.Year

Rst.MoveMax

‘variável recebe o ano gravado na tabela

AnoCont = Rst!Ano

‘se ano da Tabela for menor que o ano do SO então lblcodi recebe valor 1

If AnoCont < AnoValor Then

    LblCodi.Text = 1

Exit Sub

End If

‘caso seja o mesmo ano então o último registro do campo código recebe +1

    Rst.MoveMax

    LblCodi.Text = Rst!codicont

    txtCodCont.Text = Rst!codicont

    LblCodi.Text = LblCodi + 1

Exit Sub