Ciao , presupponendo di avere :
Tabella squadre : “Tbl_squadre”
Tabella Classifica : “Tbl_classifica” è la tabella che hai pubblicato
Tabella temp dove scriverò i top 2 : “Tbl_CLASSIFICA_TOP_2”
Private Sub CmdCalcolaTop2_Click()
Dim SquadraID As Integer
Dim db As DAO.Database
Set db = CurrentDb()
DoCmd.RunSQL " DELETE * FROM Tbl_CLASSIFICA_TOP_2" 'Azzero tabella temporanea
Dim rs1 As DAO.Recordset
Set rs1 = db.OpenRecordset("Tbl_Squadre", dbOpenTable)
Do Until rs1.EOF
SquadraID = (rs1!ID)
'estraggo i top 2 e li accodo a temp
DoCmd.RunSQL "INSERT INTO Tbl_CLASSIFICA_TOP_2 SELECT TOP 2 Punti , ID_Squadra , Atleta FROM Tbl_CLASSIFICA WHERE ID_Squadra= " & SquadraID & " ORDER BY Punti DESC ;"
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
Set db = Nothing
End Sub
Poi ti vai a leggere i dati della tabella temp..