For i = 0 To atleti - i
    rs.Open "SELECT * FROM Atleti WHERE ID=" & atlTeso(atleta), cn, 1
    grdlista.Rows = 1
    reg = rs("ATL_reg")
    prg = rs("ATL_prg")
    cognome = rs("ATL_cognome")
    nome = rs("ATL_nome")
    anno = rs("ATL_AnnoNascita")
    If rs("ATL_Sesso") = "M" Then
        sesso = "Maschio"
    Else
        sesso = "Femmina"
    End If
        grdlista.AddItem reg & vbTab & prg & vbTab & cognome & " " & nome & vbTab & sesso & vbTab & anno
    rs.Close
Next i