Private Sub ExportDatasetToCsv(ByVal MyDataSet As DataSet)

'Declaration of Variables
Dim dt As DataTable
Dim dr As DataRow

Dim myString As String
Dim bFirstRecord As Boolean = True

Dim myWriter As New System.IO.StreamWriter("C:\MyTestCSV.csv")


myString = ""

Try

  For Each dt In MyDataSet.Tables

    For Each dr As DataRow In dt

        bFirstRecord = True

        For Each field As Object In dr.ItemArray

          If Not bFirstRecord Then

             myString.AppendText(",")


          End If
 
             myString.AppendText(field.ToString)

             bFirstRecord = False

       Next

      'New Line to differentiate next row
       myString.AppendText(Environment.NewLine)

    Next

  Next

Catch ex As Exception

    MsgBox (ex.Message)


End Try


End Sub

'Write the String to the Csv File

myWriter.WriteLine(myString)

'Clean up
myWriter.Close()


End Sub