ogni recordset è formato da 50 textField()

cosi composto
01.02.03.04.05
06.07.08.09.10
11.12.13.14.15
16.17.18.19.20
21.22.23.24.25
26.27.28.29.30
31.32.33.34.35
36.37.38.39.40
41.42.43.44.45
46.47.48.49.50

questo ciclo :
codice:
Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim z As Integer
       List3.Clear
    z = 0
    For i = 1 To 46 Step 5
        For j = i To j + 4
            For k = j + 1 To i + 4
            sb = adoPrimaryRS(j)
              st = adoPrimaryRS(k)
questo crea per ogni riga 10 accoppiamenti
esempio 1° riga
01.02.03.04.05
crea : 1+2=3 ; 1+3=4 ect. ect
cioè
3-4-5-6-5-6-7-7-8-9
si fa per ogni riga ottenendo 100 volari


poi abbiamo nel codice
codice:
   amb1 = Abs(sb - st)
                 If amb1 > 45 Then amb1 = 90 - amb1
                 If amb1 = 30 Then
trova fra queste 100 nuovi valori, tutte le coppie che hanno 30 e li scrive nella listbox
ovviamente quando viene ritrovata piu di una coppia con quel valore
quindi 2,3,4,5 ecct.. deve fare dei sempli calcoli fra le varie coppie
nella listbox vengono rappresentati tutti con
sb,st

di conseguenza non riesco a capire
esempio se vengono ritrovati due coppie

sb,st
sb,st

dovrei per esempio sommare
sb della 1° coppia con st della 2° coppiaed avere il 3° valore
e viceversa

se faccio sb+st, mi somma i valori della sola 1° coppia e non incrociati

avvole la ricerca ottiene molte coppie ritrovate 3,4,5 avvolte
se trova 4 valori, i calcoli tra di loro alla fine devono esssere 6

capito cosa intendo?

scusa per il linguaggio poco tecnico o per nulla tecnico

ciao e grazie