Dim writer As System.IO.StreamWriter = New System.IO.StreamWriter(path_filename)

Dim colArray(et.Columns.Count) As Array
For col As Integer = 0 To et.Columns.Count – 1
colArray.SetValue(et.Columns.Item(col).ColumnName, col)
Next

writer.WriteLine(Join(colArray, “,”))

For Each record As DataRow In et.Rows
writer.WriteLine(Join(record.ItemArray(), “,”))
Next

If Not writer Is Nothing Then writer.Close()