Visual Basic 6 - sql

Buon giorno a tutti, il mio problema e' questo:
vorrei trovare i ritardi per il gioco del lotto di tutti i 4005 ambi,
ho provato in questo modo, e il resultato lo ottengo ma il problema e' troppo lento
impiega circa 3/4 min. come posso fare per velocizzare il tutto? dove sbaglio?
grazie a tutti saluti henry63.

For i = 1 To 1
For j = i + 1 To 90
my1 = "SELECT ruota10.primo, ruota10.secondo, ruota10.terzo, ruota10.quarto, ruota10.quinto, ruota10.indice, tutte.indice, tutte.numero, tutte.giorno, tutte.mese, tutte.anno From ruota10, tutte" _
& " where (primo=" & (i) & " and secondo=" & (j) & " or primo=" & (i) & " and terzo=" & (j) & " or primo=" & (i) & " and quarto=" & (j) & " or primo=" & (i) & " and quinto=" & (j) & " or secondo=" & (i) & " and terzo=" & (j) & " or secondo=" & (i) & " and quarto=" & (j) & " or secondo=" & (i) & " and quinto=" & (j) & " or terzo=" & (i) & " and quarto=" & (j) & " or terzo=" & (i) & " and quinto=" & (j) & " or quarto=" & (i) & " and quinto=" & (j) & " or primo=" & (j) & " and secondo=" & (i) & " or primo=" & (j) & " and terzo=" & (i) & " " _
& "or primo=" & (j) & " and quarto=" & (i) & " or primo=" & (j) & " and quinto=" & (i) & " or secondo=" & (j) & " and terzo=" & (i) & " or secondo=" & (j) & " and quarto=" & (i) & " or secondo=" & (j) & " and quinto=" & (i) & " or terzo=" & (j) & " and quarto=" & (i) & " or terzo=" & (j) & " and quinto=" & (i) & " or quarto=" & (j) & " and quinto=" & (i) & "and ruota10.indice=tutte.indice;"
d(9).RecordSource = my1
Text1.DataField = "tutte.indice"
d(9).Refresh
d(9).Recordset.MoveLast
List1.AddItem CStr(i) & "-" & CStr(j) & " " & Text2 - Text1
Next
Next

primo posta il codice in modo leggibile...