Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim Summary_Data As New List(Of Field_Data)({

            New Field_Data() With {.sample_name = "sample_name1", .analysis_date = "analysis_date1"},

            New Field_Data() With {.sample_name = "sample_name2", .analysis_date = "analysis_date2"}

        })

        Summary_Data.Add(New Field_Data() With {.sample_name = "sample_name3", .analysis_date = "analysis_date3"})

        For Each MyFieldItem as Field_Data In Summary_Data

            Console.WriteLine("sample_name: {0}, analysis_date: {1}", MyFieldItem.sample_name, MyFieldItem.analysis_date)

        Next

    End Sub

End Module

​

Public Class Field_Data

    Public Property sample_name As String

    Public Property analysis_date As String

End Class