imports System

​

Public Module Module1

​

    Public Sub Main()

        'Creating A Two Row DataTable For Demonstration Purposes

            Dim dtToBeConverted As Data.DataTable = New Data.DataTable

            Dim dtColumnOne As Data.DataColumn = New Data.DataColumn("ColumnOne")

            dtColumnOne.DataType = System.Type.GetType("System.String")

            Dim dtColumnTwo As System.Data.DataColumn = New System.Data.DataColumn("ColumnTwo")

            dtColumnTwo.DataType = System.Type.GetType("System.Int32")

            dtToBeConverted.Columns.Add(dtColumnOne)

            dtToBeConverted.Columns.Add(dtColumnTwo)

            Dim dtRow As Data.DataRow

            dtRow = dtToBeConverted.NewRow()

            dtRow.Item("ColumnOne") = "Test"

            dtRow.Item("ColumnTwo") = 50

            dtToBeConverted.Rows.Add(dtRow)

            dtRow = dtToBeConverted.NewRow()

            dtRow.Item("ColumnOne") = "Test Other Value"

            dtRow.Item("ColumnTwo") = 100

            dtToBeConverted.Rows.Add(dtRow)

        Dim in_dtToBeConverted As Data.DataTable = dtToBeConverted

        'Converting DataTable Into CSV  

            Dim out_strResults As String = String.Empty

            Dim intCounter As Int32 = 0

            While intCounter < in_dtToBeConverted.Rows.Count

                If intCounter > 0 Then

                    out_strResults += ", "

                End If

                out_strResults += String.Join(", ", in_dtToBeConverted.Rows(intCounter).ItemArray)

                intCounter += 1

            End While

            Console.WriteLine(out_strResults)

    End Sub

End Module

​