ecco la parte del codice incriminata, fammi pure qualsiasi domanda, e se vuoi darmi qualche consiglio su cui migliorare sei bene accetto



For I = 1 To rs.RecordCount

If Trim(Left(rs.Fields("cdsuc_alu0"), 4)) <> "FIAA" And Trim(Left(rs.Fields("cdsuc_alu0"), 4)) <> "FI1A" Then
Else
cont_maternestra = cont_maternestra + 1
End If


classeb = Trim(Left(rs.Fields("clat_alu0"), 1))

If IsNull(Trim(Left(rs.Fields("citd_alu0"), 3))) Then
cont_emptycitt = cont_emptycitt + 1
'cittadinanze vuote
End If

Me.txt_cittàvuote.Text = cont_emptycitt

If tmp_cdalu = rs.Fields("cdsuc_alu0") Then
sw2 = False


If Left(rs.Fields("citd_alu0"), 3) <> "ITA" And Left(rs.Fields("citd_alu0"), 3) <> "ita" And Left(rs.Fields("citd_alu0"), 3) <> "Ita" And Left(rs.Fields("citd_alu0"), 3) <> "" Then
vett_cdsuc_alu0(x) = rs.Fields("cdsuc_alu0")

' On Error Resume Next
vett_naz(x) = UCase(CStr(Left(rs.Fields("citd_alu0"), 3) & ""))

x = x + 1

tmp = conta_sessi1(cont_femmine1, cont_maschi1)
tmp = conta_sessi2(cont_femmine2, cont_maschi2)
tmp = conta_sessi3(cont_femmine3, cont_maschi3)
tmp = conta_sessi4(cont_femmine4, cont_maschi4)
tmp = conta_sessi5(cont_femmine5, cont_maschi5)

m = m + 1
f = f + 1

Else
rs.MoveNext
End If

Else
sw2 = True
If Left(rs.Fields("citd_alu0"), 3) <> "ITA" And Left(rs.Fields("citd_alu0"), 3) <> "ita" And Left(rs.Fields("citd_alu0"), 3) <> "Ita" And Left(rs.Fields("citd_alu0"), 3) <> "" Then

vett_cdsuc_alu0(x) = Trim(rs.Fields("cdsuc_alu0"))


' temp_var = Left(rs.Fields("citd_alu0"), 3)

' On Error Resume Next
vett_naz(x) = UCase(CStr(Left(rs.Fields("citd_alu0"), 3) & ""))

x = x + 1

cont_femmine1 = 0
cont_maschi1 = 0
cont_femmine2 = 0
cont_maschi2 = 0
cont_femmine3 = 0
cont_maschi3 = 0
cont_femmine4 = 0
cont_maschi4 = 0
cont_femmine5 = 0
cont_maschi5 = 0

tmp = conta_sessi1(cont_femmine1, cont_maschi1)
tmp = conta_sessi2(cont_femmine2, cont_maschi2)
tmp = conta_sessi3(cont_femmine3, cont_maschi3)
tmp = conta_sessi4(cont_femmine4, cont_maschi4)
tmp = conta_sessi5(cont_femmine5, cont_maschi5)

m = m + 1
f = f + 1

' For a = 1 To 10000
' vett_naztemp(a) = ""
' Next a

tmp_cdalu = rs.Fields("cdsuc_alu0")
Else
End If
End If


If rs.Fields("citd_alu0") = cittadinanza Then

Else

cittadinanza = UCase(CStr(Left(rs.Fields("citd_alu0"), 3) & ""))
vett_cdsuc_alu0(x) = Trim(rs.Fields("cdsuc_alu0"))
vett_naz(x) = UCase(CStr(Left(rs.Fields("citd_alu0"), 3) & ""))
x = x + 1
cont_femmine1 = 0
cont_maschi1 = 0
cont_femmine2 = 0
cont_maschi2 = 0
cont_femmine3 = 0
cont_maschi3 = 0
cont_femmine4 = 0
cont_maschi4 = 0
cont_femmine5 = 0
cont_maschi5 = 0
tmp = conta_sessi1(cont_femmine1, cont_maschi1)
tmp = conta_sessi2(cont_femmine2, cont_maschi2)
tmp = conta_sessi3(cont_femmine3, cont_maschi3)
tmp = conta_sessi4(cont_femmine4, cont_maschi4)
tmp = conta_sessi5(cont_femmine5, cont_maschi5)

m = m + 1
f = f + 1

End If


rs.MoveNext


ProgressBar.Value = I
DoEvents


Next I