converting datatable into csv using vb.net

Hi Garth,

I may have found the root of the problem.

the original file is from excel and is converted into datatable. see code below:


Dim sr As New StreamReader(path)

Dim fullFileStr As String = sr.ReadToEnd()

sr.Close()

sr.Dispose()

Dim lines As String() = fullFileStr.Split(ControlChars.Lf)

Dim recs As New DataTable()

Dim sArr As String() = lines(0).Split("~"c)

For Each s As String In sArr

recs.Columns.Add(New DataColumn())

Next

'recs.Columns.Add(New DataColumn())


Dim row As DataRow

Dim finalLine As String = ""

For Each line As String In lines

row = recs.NewRow()

finalLine = line.Replace(Convert.ToString(ControlChars.Cr), "")

row.ItemArray = finalLine.Split("~"c)

recs.Rows.Add(row)

Next

from this process, the date value is converted in numeric 40939 from its original excel format of 20120131.

How can I convert the date column to date format when converting into datatable using the same code above?