VB Code:
sql1 = _
"select top 3 pontosind1 as Totais, classifind1 as Classifind, seccao1 as Secção, classe1 as Classe, designacao1 as Designação, nomesocio as Expositor, anilha1 as Anilha, gaiolaind1 as Gaiola, Sexo1 as Sexo" & _
" from exposicao " & _
" WHERE pontosind1 >= '90' & _
"and (pontoseq1 = '' or pontoseq1 is null) " & _
" UNION ALL" & _
" select pontosind2, classifind2, seccao2, classe2, designacao2, nomesocio, anilha2, gaiolaind2, sexo2" & _
" from exposicao " & _
" WHERE pontosind2 >= '90' & _
"and (pontoseq1 = '' or pontoseq1 is null) " & _
" UNION ALL" & _
" select pontosind3, classifind3, seccao3, classe3, designacao3, nomesocio, anilha3, gaiolaind3, sexo3" & _
" from exposicao " & _
" WHERE pontosind3 >= '90' & _
"and (pontoseq1 = '' or pontoseq1 is null) " & _
" UNION ALL" & _
" select pontosind4, classifind4, seccao4, classe4, designacao4, nomesocio, anilha4, gaiolaind4, sexo4" & _
" from exposicao " & _
" WHERE pontosind4 >= '90' & _
"and (pontoseq1 = '' or pontoseq1 is null) " & _
" ORDER BY classe desc,Totais desc "