E' semplice.. Dunque.. Dato un Recordset chiamato recDati e l'array Trattamenti() dove verranno memorizzati i trattamenti:
codice:
recDati.MoveFirst 'Punta al primo dato
ReDim Trattamenti (1 To recDati.RecordCount) 'Ridimensiona l'array da 1 a tutti i valori nel Recordset
For i = 1 To recDati.RecordCount 'Da 1 a tutti i valori nel Recordset
Trattamenti(i) = recDati.Fields("[Tipo trattamento]"
recDati.MoveNext
Next i
Ed ecco qui...