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)
              amb1 = Abs(sb - st)
                 If amb1 > 45 Then amb1 = 90 - amb1
                     If amb1 = 30 Then
                        List3.AddItem " ruota " & " " & CStr(sb) & "  " & CStr(st) '& "  " & CStr(n3) & "  " & CStr(n4)
                    End If
                 z = z + 1
            Next k
        Next j
    Next i