Dim SrcTbl As New DataTable()



        With SrcTbl.Columns

            .Add("Column1", GetType(Integer))

            .Add("Column2", GetType(String))

        End With



        With SrcTbl.Rows

            .Add(1, "Data1")

            .Add(2, "Data2")

            .Add(3, "Data3")

            .Add(4, "Data4")

        End With



        Dim DestTbl1 = SrcTbl.Copy

        Dim DestTbl2 = SrcTbl.Clone

        Dim DestTbl3 = (From r In SrcTbl.AsEnumerable

                        Where r.Field(Of Integer)("Column1") < 3).CopyToDataTable