Public Function DataTableCopy(ByVal Dt As DataTable) As DataTable
        Dim DtN As New DataTable
        For Each C As DataColumn In Dt.Columns
            DtN.Columns.Add(C.ColumnName, C.DataType)
        Next
        For Each r As DataRow In Dt.Rows
            Dim nr As DataRow = DtN.NewRow
            For c As Integer = 0 To r.Table.Columns.Count - 1
                If Not r(c) Is DBNull.Value Then nr(c) = r(c)
            Next
            DtN.Rows.Add(nr)
        Next
        Return DtN
    End Function

.CTable = DataTableCopy(TransferDataTable)

Danke für die Hilfe

Gruß Christian