Dim strSql As String = "SELECT TB_AnagrafeSoc.Id_Societa,TB_AnagrafeSoc.R_DenominSocieta,TB_AnagrafeSoc.R_IndirizzoSoc,TB_AnagrafeSoc.R_CodFiscSoc,TB_AnagrafeSoc.R_LogoSoc,IdComSoc=SOC.Id_Comune,CapSoc=SOC.CAP,ComuneSoc=SOC.Comune, " & _
                "TB_AnagraficaAtleta.Id_ComuneResidenza,TB_AnagraficaAtleta.Id_Atleta,TB_AnagraficaAtleta.R_NomeAtleta,TB_AnagraficaAtleta.R_CognomeAtleta,TB_AnagraficaAtleta.R_DataNascita,ComuneDiNascita=NAS.Comune," & _
                "ComuneResidenza=RES.Comune,ProvinciaResi=RES.Provincia,CapRes=RES.CAP,TB_AnagraficaAtleta.Id_ComuneResidenza,TB_AnagraficaAtleta.R_CFAtleta,TB_AnagraficaAtleta.R_CFSogPagante," & _
                "TB_AnagraficaAtleta.R_Via,TB_Convenzioni.R_RagSociale,TB_Convenzioni.R_Sconto,TB_AnagraficaAtleta.Id_Convenzionato," & _
                "TB_QuoteAssociative.R_QuotaAssociativa,TB_TipoAtleta.R_TipoAtleta " & _
                "FROM TB_AnagraficaAtleta INNER JOIN TB_Orari ON TB_AnagraficaAtleta.Id_Orari=TB_Orari.Id_Orari" & _
                " INNER JOIN TB_Comuni NAS ON TB_AnagraficaAtleta.Id_ComuneNascita = NAS.Id_Comune" & _
                " INNER JOIN TB_Comuni SOC ON TB_AnagrafeSoc.Id_Comune = SOC.Id_Comune" & _
                " INNER JOIN TB_Comuni RES ON TB_AnagraficaAtleta.Id_ComuneResidenza = RES.Id_Comune" & _
                " INNER JOIN TB_TipoAtleta ON TB_AnagraficaAtleta.Id_TipoAtleta=TB_TipoAtleta.Id_TipoAtleta " & _
                " INNER JOIN TB_Convenzioni ON TB_AnagraficaAtleta.Id_Convenzionato=TB_Convenzioni.Id_Convenzionato" & _
                " INNER JOIN TB_QuoteAssociative ON TB_AnagraficaAtleta.Id_QuoteAss=TB_QuoteAssociative.Id_QuoteAss" & _
                " INNER JOIN TB_AnagrafeSoc ON TB_AnagraficaAtleta.Id_Societa=TB_AnagrafeSoc.Id_Societa" & _
                " WHERE TB_AnagraficaAtleta.Id_Atleta=1