Fortlaufende Nummer in Access (kein AutoWert...)

Public Function SetzePos()
  Dim sql As String
  Dim rsAuftraege As DAO.Recordset
  Dim rs As DAO.Recordset
  Dim i As Integer
    sql = "SELECT DISTINCT Auftrag FROM Tabelle;"  
    Set rsAuftraege = CurrentDb.OpenRecordset(sql)
    
    Do Until rsAuftraege.EOF
      sql = "SELECT PosNr FROM Tabelle " _  
        & "WHERE Auftrag=" & rsAuftraege.Fields("Auftrag") _  
        & " ORDER BY Auftrag, Artikel;"  
      Set rs = CurrentDb.OpenRecordset(sql)
      i = 1
      Do Until rs.EOF
        rs.Fields("Pos-Nr") = i  
        i = i + 1
        rs.MoveNext
      Loop
      rsAuftraege.MoveNext
    Loop
End Function

Select * from Auftrag
ID	auftrag	artikel	attribut1	etc
1	123	A	blau	extralarge
2	123	B	orange	mini
3	456	A	blau	extralarge
4	456	C	lila	pervers
5	456	B	schwatt	cool

Insert  INTO AuftragNeu (Auftrag, Artikel, Pos, Attribut1, Etc)

Select Auftrag, ThisArtikel, Pos, Thisattribut1, ThisEtc
FROM (
Select Auftrag, first(Artikel) as ThisArtikel, 
(select IIF(max(pos) is NULL, 0, max(pos))+1 from auftragneu) as POS, 
first(attribut1) as ThisAttribut1, First( etc) as Thisetc
FROM Auftrag 
Where Auftrag & Artikel not in (Select Auftrag & Artikel  from AuftragNeu)
GROUP by Auftrag
)

Select * from AuftragNeu
ID	auftrag	artikel	Pos	attribut1	etc
1	123	A	1	blau	extralarge
2	456	A	1	blau	extralarge
3	123	B	2	orange	mini
4	456	C	2	lila	pervers
5	456	B	3	schwatt	cool

 SELECT auftrag,artikel,Pos, etc
FROM AuftragNeu
ORDER BY auftrag, Pos;
auftrag	artikel	Pos	etc
123	A	1	extralarge
123	B	2	mini
456	A	1	extralarge
456	C	2	pervers
456	B	3	cool