[Resolvido]Númeração automática do Access com Ano na Frente

Olá, sou iniciante no access e no vba, estou fazendo um programa no qual o número de contrato tem que ser gerado com o ano na frente e ser sequencial, estilo AAAA0000, por exemplo 20170001, 20170002, 20170003... Seria possível? e Como

Deve ser gerado automaticamente?
Deve ter necessariamente 4 dígitos depois do ano atual?

Consegui com o código:

Private Function proximoN() As String
'formato do nº AAAA0000

'declarar variáveis
Dim rstComunicados As Recordset
Dim SQLComunicados As String

Set rstComunicados = CurrentDb.OpenRecordset("consUltimoDoAno", dbOpenDynaset)

'verificar o último nº criado no ano atual
'conectar na tabela comunicados (WHERE ano atual)
'selecionar o último (MAX)
'somar + 1

'pegar o ano atual
'proximoN = Format(CStr((rstComunicados!ultimoComunicado + 1)), ("0000"))
proximoN = Year(Date) & Format(CStr((rstComunicados!ultimoComunicado + 1)), ("0000"))

End Function

mas obrigado pelo tempo que teve