How do I make an array from a datatable to use in clipboard

See more:

VB

I am stuck with the columns as of right now.

here is my code:

Dim s As New StringBuilder
      Dim str As String


      For Each dr As DataRow In dt.Rows
          For i As Integer = 0 To dt.Columns.Count - 1
              For Each col As DataColumn In dt.Columns

                  str = dr.Item(col.ColumnName).ToString() + "|"

                  s.Append(str)

              Next
          Next
      Next

Instead of each column being individualized, all the column names want to run together into 1 column. for instance I have an ID, Firstname, Lastname, and Address.
they are placed into 1 column like this: IDFirstnameLastnameAddress

how can I split this up so the clipboard recognizes them as individual names?

What I have tried:

Tried to use a split function and adding a character in bewteen but that didnt work either.