codice:
Dim l As New List(Of String)(10000)
Dim sql As String = "select nome_comune from comuni"
Dim reader As OleDbDataReader = libreria.GetDataReader(StringaConnessioneTest, sql)
While reader.Read
	l.Add(reader.GetString(0))
End While
reader.Close()
Dim v As String() = l.ToArray()
Uno dei tanti modi