Visual Basic 6 - problema con contatori

Dim comb(10)
strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\ESTRAZIONI.mdb"
cn.Open strConn
'estr = InputBox(" inserisci un numero di estrazioni ", "")
'rs.Open " select TOP " & estr & " Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5 From Archivio ORDER BY Data DESC;", cn, 3, 3
rs.Open "select ID,Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI1,FI2,FI3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3,MI4,MI5,NA1,NA2,NA3,NA4,NA5,PA1,PA2,PA3,PA4,PA5,RO1,RO2,RO3,RO4,RO5,TO1,TO2,TO3,TO4,TO5,VE1,VE2,VE3,VE4,VE5,NZ1,NZ2,NZ3,NZ4,NZ5 from archivio", cn, 3, 3

Do Until rs.EOF
    comb(0) = (rs("Data"))
    comb(1) = (rs("BA1"))
    comb(2) = (rs("BA2"))
    comb(3) = (rs("BA3"))
    comb(4) = (rs("BA4"))
    comb(5) = (rs("BA5"))
    
    comb(6) = (rs("CA1"))
    comb(7) = (rs("CA2"))
    comb(8) = (rs("CA3"))
    comb(9) = (rs("CA4"))
    comb(10) = (rs("CA5"))

For i = 1 To 10 Step 5
        For j = i To j + 4
            For k = j To i + 4
If (comb(j) = 49 And comb(k) = 26) Or (comb(j) = 26 And comb(k) = 49) Then

List1.AddItem comb(j) & " - " & comb(k) & " - - -  " & " Sortito in data --> " & comb(0) 
End If

Next k
Next j
Next i
    rs.MoveNext
Loop



rs.Close

ciao ragazzi, mi rallenta moltissimo la ricerca credo che ho impostato male il tutto

mi aiutereste ?
grazie

Sì ... ma devi spiegare un attimo cosa vorresti fare con quel codice per poterlo "velocizzare" ...

allora questa è l'ultima estrazione :

Bari 28 12 69 9 2
Cagliari 12 20 31 87 40
Firenze 79 50 31 6 35
Genova 45 39 62 17 73
Milano 54 10 9 72 31
Napoli 33 53 13 45 22
Palermo 76 67 50 16 18
Roma 42 18 55 48 56
Torino 60 7 66 42 79
Venezia 68 76 78 61 48
Nazionale 62 34 81 39 37

devo contare tutti gli ambi ruota per ruota....

ed ho fatto con questo tipo di contatore :

  For i = 1 To 50 Step 5 ' parte a contare da bari fino  a torino
        For j = i To j + 4
            For k = j + 1 To i + 4
              For u = i + 5 To 55Step 5  'questa parte da cagliari fino a  venezia
                  For o = u To o + 4
                     For p = o + 1 To u + 4

i contatore funziona... ne senso che conta in modo esatto, ma ripetuto per un centinaio di volte

Devi contare tutti gli ambi ?

Cioe' ? Fai un esempio concreto ...

ogni
ruota produce 10 ambi
sono 10 ruote
10*10= 100 ambi

devo confrontare gli ambi dal 1° ambo di bari sino all'ultimo di venzia confrontandoli

ecco il link del confronto che dovrei virtualmente avere

magicolotto.net/…

chiedo scusa
per una mia semplice ma fatale distrazione
credevo che non funzionasse


invece lavora bene

chiedo scusa a GANTONIO

grazieee