Dim array2 As New ArrayList
For Each datos In HomeInformationDataSet.HomeInformation
array2.Add(datos.Dia)
Next
For Each Index In array2
DropDownList1.Items.Add(Index.ToString)
Next Label1.Text = array2.Item(0)