Add rows in excel workbook

Code below shows how to add new row in excel sheet using ADO.NET

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim m_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=E:\Vikas\AutoExcel\myexcel.xls;" & _

"Extended Properties=""Excel 8.0;HDR=Yes"""

Dim conn2 As New OleDbConnection(m_sConn1)

Dim da As New OleDbDataAdapter("Select * From [Cities$]", conn2)

Dim ds As DataSet = New DataSet()

da.Fill(ds, "myexcel")

' Generate the InsertCommand and add the parameters for the command.

da.InsertCommand = New OleDbCommand( _

"INSERT INTO [Cities$] (Product, Qty, Price) VALUES (?, ?, ?)", conn2)

da.InsertCommand.Parameters.Add("@Product", OleDbType.VarChar, 255, "Product")

da.InsertCommand.Parameters.Add("@Qty", OleDbType.Double).SourceColumn = "Qty"

da.InsertCommand.Parameters.Add("@Price", OleDbType.Currency).SourceColumn = "Price"

' Add two new records to the dataset.

Dim dr As DataRow

dr = ds.Tables(0).NewRow

dr("Product") = "Bread" : dr("Qty") = 390 : dr("Price") = 1.89 : ds.Tables(0).Rows.Add(dr)

dr = ds.Tables(0).NewRow

dr("Product") = "Milk" : dr("Qty") = 99 : dr("Price") = 2.59 : ds.Tables(0).Rows.Add(dr)

' Apply the dataset changes to the actual data source (the workbook).

da.Update(ds, "myexcel")

conn2.Close()

End Sub