numero sequencial em uma consulta

Pessoal,Bom Dia
Estou precisando criar uma consulta para trazer os 20 itens mais vendidos de cada departamento ate consegui colocar um campo sequencial só que quando muda o departamento o campo não inicia a sequencia Alguém pode me ajuda.
Hoje esta desta forma
No modulo

Public Function numerarSQL(nDato) As Long
' Juan M. Afán de Ribera
Static nORDEN As Long

If IsNull(nDato) Then
nORDEN = 0
Exit Function
End If

nORDEN = nORDEN + 1
numerarSQL = nORDEN

End Function

E tem uma consulta conforme abaixo

SELECT numerarSQL([Cod produto]) AS Sequência, * FROM Qry_Vda\Participaçao\Dpto
UNION ALL SELECT numerarSQL(Null), * FROM Qry_Vda\Participaçao\Dpto WHERE 1=0;

Grato

Tente assim e veja se dá certo

Código:

Global t, m

Function ord(cod)
n = DLookup("[cod produto]", "Qry_Vda\Participaçao\Dpto")

If cod = n And m <> cod Then
m = cod: t = 0:
End If
If m = cod Then
t = t + 1
ord = t
Else
m = cod: t = 1: ord = t
End If

End Function

SELECT [Cod produto] as Produto, Ord([Cod produto]) AS Sequência, * FROM Qry_Vda\Participaçao\Dpto