Originariamente inviato da oregon
E' quasi impossibile rispondere alla tua domanda senza conoscere

1) struttura del db
2) la query che ha generato il recordset
connessione :

sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=" & App.path & "\magicolotto.mdb;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDBatabase Password='';Jet OLEDB:Global Partial Bulk Ops=2"
sSQL = "select ID,Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI 1,FI2,FI3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3, MI4,MI5,NA1,NA2,NA3,NA4,NA5,PA1,PA2,PA3,PA4,PA5,RO 1,RO2,RO3,RO4,RO5,TO1,TO2,TO3,TO4,TO5,VE1,VE2,VE3, VE4,VE5 from archivio"
data = Format(data, "dd/mm/yyyy")
' apre la connessione
Set dfwConn = New Connection
dfwConn.Open sConnect

' crea un gruppo di record utilizzando l'insieme specificato
Set datPrimaryRS = New Recordset
datPrimaryRS.CursorLocation = adUseClient
datPrimaryRS.Open sSQL, dfwConn, adOpenForwardOnly, adLockReadOnly
anteprima :


Originariamente inviato da oregon
E' quasi impossibile rispondere alla tua domanda senza conoscere

3) il significato dei cicli e degli indici ...
i cicli
For i = 2 To 47 Step 5 ' parte a contare da bari fino a torino
For j = i To j + 4
For k = j + 1 To i + 4
For q = k + 1 To i + 4
cosi facendo troviamo tutti i terni e li conteggiamo cosi :

terni(sb, st, sc) = terni(sb, st, sc) + 1
quindi :
If terni(sb, st, sc) >= 2 Then
se un terno si è ripetuto almeno due volte lo inserisce nella lista

List3.AddItem maxvolte & " Sortite del " & CStr(sb) & " " & CStr(st) & " " & CStr(sc) & " in data " & dat
se trova la condizione dovrei scrivere anche le date

utilizo il metodo FIND PER POSIZIONARMI SUL RECORSET
datPrimaryRS.Find cerca
poi inizia il ciclo
While Not datPrimaryRS.EOF

come ho inserito al post iniziale( vedi sopra)


grazieeeee