for each column as Datacolumn in collectionIn.columns
    if column.columnName<>columnName
        collectionOut.Columns.add(column.columnName)
    end if
next
collectionOut.columns.add(columnName)
collectionOut.Columns(columnName).DataType = GetType(double)
Dim i as integer=0
For Each row As DataRow In collectionIn.rows
    Dim j as integer=0
    collectionOut.rows.add
    for each column as DataColumn in collectionIn.columns
        j=j+1
        try
        collectionOut.rows(i).item(column.columnName)=row.item(column.columnName)
        catch
        end try
    Next
    i=i+1
Next