I got the action called "Set Column Names From First Row" in Utility - Collection Manipulation.
Do you have it too?
If not, then here's the code:
Dim iThisColumn as integer = -1
For Each Column As DataColumn In Input_Collection.Columns
Output_Collection = Input_Collection
This will serve the purpose.