Dim xlApp As New Excel.Application
        Dim xlWorkbook As Excel.Workbook = Nothing
       

        Try
            xlApp.Visible = True
            xlWorkbook = xlApp.Workbooks.Open("C:\blah.xls")
       Catch......

Elda, on 17 September 2011 - 12:58 AM, said:

  sqlstmt = "SELECT * FROM GMOIR where " & cbfield.Text & " Like '%" & txtdata.Text & "%' "
       


        Dim cmd As New SqlCommand(sqlstmt, con2)
        da = New SqlDataAdapter(cmd)
        ds = New DataSet
        da.Fill(ds, "CB")
        t = ds.Tables(0)
        dgv1.DataSource = t

("UPDATE tblproduct SET (prodes = '" & txtdes.Text & "', price = '" & txtpr.Text & "', quantity = '" & txtquan.Text & "') WHERE ([color="#FF0000"]prodid[/color] = '" & txtid.Text & "')", "tblproduct")

If ListBox1.Text = "Grammes (g)" And ListBox2.Text = "Ounces (oz)" Then

        douCalculatedValue = douinitialvalue * 0.0352739619

        'douinitialvalue = douinitialvalue'<--this line is extrafluous

        'Math.Round(douCalculatedValue, 3)'<--this line is extrafluous

        strOutput = String.Format(douinitialvalue & "g" & " = {0:f3} oz", douCalculatedValue)

         End If

    Private Sub PullToCSV()
        Dim SqlSb As New SqlConnectionStringBuilder()

        SqlSb.DataSource = ".\SQLEXPRESS" '<--change here

        SqlSb.InitialCatalog = "Tester" '<--change here

        SqlSb.IntegratedSecurity = True

        SqlConn = New SqlConnection(SqlSb.ConnectionString)

        SqlConn.Open()

        Dim cmd As SqlCommand = SqlConn.CreateCommand()

        '' "Loan Balance" is with squared brackets here:
        Dim query As String = "Select [Month] " & _
        "," & "'$'" & "+ convert(varchar,cast(Payment as money),1) as Payment" & _
        "," & "'$'" & "+ convert(varchar,cast(Interest as money),1) as Interest" & _
         "," & "'$'" & "+ convert(varchar,cast(Principal as money),1) as Principal" & _
        "," & "'$'" & "+ convert(varchar,cast([Loan Balance] as money),1) as [Loan Balance]" & _
        " FROM [Tester].[dbo].[Bank]"

        cmd.CommandText = query

        ''point of your interest:
        Using reader As SqlDataReader = cmd.ExecuteReader()

            Using swr As StreamWriter = New StreamWriter("myfile.xls") '<--write directly into the Debug folder i.e.
                ' 1. write 
                swr.WriteLine("{0},{1},{2},{3},{4}", "Month", "Payment", "Interest", "Principal", "Loan Balance")
                '' If you use tab separated formatting, try next one instead:

                'swr.WriteLine("{0}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "{3}" & vbTab & "{4}", "Month", "Payment", "Interest", "Principal", "Loan Balance")

                '2. write data
                While (reader.Read())
                    swr.WriteLine("{0},{1},{2},{3},{4}", reader("Month"), reader("Payment"), reader("Interest"), reader("Principal"), reader("Loan Balance")) '<--"Loan Balance" without squared brackets here
                    '' If you use tab separated formatting, try next one instead:

                    'swr.WriteLine("{0}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "{3}" & vbTab & "{4}", reader("Month"), reader("Payment"), reader("Interest"), reader("Principal"), reader("Loan Balance"))
                End While
                swr.Close()
            End Using
            reader.Close()
            SqlConn.Close()
        End Using