un filo macchinoso ma funziona...
ho il risultato della mia select in una matrice che si chiama matriceTemi(0,k)
codice:
temiStringa = ""
' passo dalla matrice all'array
for k=0 to dimensioneTemi-1
arrayTemi(k)=matriceTemi(0,k)
next
' metto tutti i risultati in una stringa, ogni record è separato dalla virgola
listaStr=Join(arrayTemi, ",")
' risplitto il tutto in un array, in questo modo ogni record che conteneva più di un valore viene splittato in record differenti
listaArr=Split(listaStr,",")
' veriico l'unicità delle voci mettendo il tutto in una stringa
for i=0 to ubound(listaArr)
if InStr(temiStringa,listaArr(i))=0 then
temiStringa= temiStringa & listaArr(i) & ", "
end if
next
' risplitto la strina e ho il mio array pulito
temiArr=Split(temiStringa, ",")
dimensioneTemiArr=ubound(temiArr)
non ho mai utilizzato l'oggetto dictionary, adesso vado a vedermelo un po' per capire se può essermi d'aiuto
grazie