Automatically adding new list item.

Currently,
I have a GridView populated by a list and this then refers to data within a MySQL table.
Dim Test As New List(Of Profile) Test.Add(New Profile() With {.Profile_ID = ContactsData.Rows.Item(0).Item("Profile_ID"), .Description = ContactsData.Rows.Item(0).Item("Description"), .Date_Created = ContactsData.Rows.Item(0).Item("Date_Created").ToString}) Test.Add(New Profile() With {.Profile_ID = ContactsData.Rows.Item(1).Item("Profile_ID"), .Description = ContactsData.Rows.Item(1).Item("Description"), .Date_Created = ContactsData.Rows.Item(1).Item("Date_Created").ToString}) Test.Add(New Profile() With {.Profile_ID = ContactsData.Rows.Item(2).Item("Profile_ID"), .Description = ContactsData.Rows.Item(2).Item("Description"), .Date_Created = ContactsData.Rows.Item(2).Item("Date_Created").ToString}) Test.Ad ...