Dim column_1 As Decimal
Dim column_2 As DateTime
Dim column_3 As String
Dim column_4 As Decimal

'Create a CSV file
Dim oWriter As System.IO.StreamWriter
oWriter = System.IO.File.CreateText("C:\...\Temp.csv")

'Connection String and SQLConnect
Dim connstring As String = "server=server;database=database;user id=user;password=password"
Dim conn As New SqlConnection(connstring)

'Create Selection Query
Dim selectSQL As String = "SELECT ACCT, DATE, DOW, KWH FROM SENSUS3 WHERE (ACCT = " & txtAcct.Text & ")"

'Create Selection Command
Dim cmd As New SqlCommand(selectSQL, conn)

'Set cmd Property
cmd.CommandType = CommandType.Text

'Open Database
conn.Open()

'Create a new Reader and execute the Reader
Dim myreader As SqlDataReader = cmd.ExecuteReader

'Read information from the database and give the values to the arguments(column_1 to column_4)
While myreader.Read
      column_1 = myreader.GetDecimal(0)
      column_2 = myreader.GetDateTime(1)
      column_3 = myreader.GetString(2)
      column_4 = myreader.GetDecimal(3)
      oWriter.WriteLine(column_1, ",", column_2, ",", column_3, ",", column_4)
End While

oWriter.Dispose()
conn.Dispose()

oWriter.WriteLine(column_1, ",", column_2, ",", column_3, ",", column_4)

oWriter.WriteLine(column_1 & "," & column_2 & "," & column_3 & "," & column_4)

quote:

---

Originally posted by vijayisonly

Change

oWriter.WriteLine(column_1, ",", column_2, ",", column_3, ",", column_4)

to

oWriter.WriteLine(column_1 & "," & column_2 & "," & column_3 & "," & column_4)

---