DataTable数据源插入一行数据

1、模拟数据源，MyDataSource，代码如下：

Public NotInheritable Class MyDataSource

    Public Shared dt As New DataTable

    Shared Sub New()

        Try

            dt.Columns.Add("Name")
            dt.Columns.Add("Age")

            Dim dr As DataRow = dt.NewRow()
            dr("Name") = "Adam"
            dr("Age") = 6
            dt.Rows.Add(dr)

            Dim dr2 As DataRow = dt.NewRow()
            dr2("Name") = "Luke"
            dr2("Age") = 21
            dt.Rows.Add(dr2)

            Dim dr3 As DataRow = dt.NewRow()
            dr3("Name") = "Jack"
            dr3("Age") = 32

            dt.Rows.Add(dr3)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

End Class

2、主窗体及代码，如下：