Dim dtOriginal As New DataTable dtOriginal.Columns.Add("Field1", GetType(String)) dtOriginal.Columns.Add("Field2", GetType(String)) dtOriginal.Rows.Add(New Object() {"りんご", "青森"}) dtOriginal.Rows.Add(New Object() {"りんご", "青森"}) dtOriginal.Rows.Add(New Object() {"みかん", "愛媛"}) dtOriginal.Rows.Add(New Object() {"みかん", "和歌山"}) dtOriginal.Rows.Add(New Object() {"みかん", "和歌山"}) dtOriginal.Rows.Add(New Ob