[Resolvido]Código ADD Novo Registro (Nativo)

Function proximoNumero() As String
'Função que busca o último número do mês
'e acrescenta um para criar o próximo

    Dim strSql As String
    Dim rstDoc As Recordset
    Dim numeroEncontrado As Integer
    
    'Cria a consulta SQL buscando os números do mês atual
    'em ordem descendente para que o último fique em primeiro
    strSql = "Select nrDocumento From Documento " & _
                "Where (nrDocumento Like '*" & Format(Date, "yyyy") & "') " & _
                "Order By nrDocumento Desc"

    'Abre o recordset
    Set rstDoc = CurrentDb.OpenRecordset(strSql)
    'Se encontrou algum pega o primeiro
    'senão retorna zero
    If rstDoc.RecordCount > 0 Then
        numeroEncontrado = CInt(Left(rstDoc("nrDocumento"), 3))
    Else
        numeroEncontrado = 0
    End If

    'Próximo número = numero encontrado +1 mais o mês e ano atual com dois dígitos
    proximoNumero = Format(numeroEncontrado + 1, "000") & Format(Date, "yyyy")

    'Fecha o recordset
    rstDoc.Close
    Set rstDoc = Nothing

End Function