Imports System.Data

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

                ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim MyConnection As System.Data.OleDb.OleDbConnection

            Dim myCommand As New System.Data.OleDb.OleDbCommand

            Dim sql As String



            MyConnection = New System.Data.OleDb.OleDbConnection _

            ("provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + _

            "'c:\testfile.xls';Extended Properties=Excel 8.0;")



            MyConnection.Open()

            myCommand.Connection = MyConnection

            sql = "Insert into [Sheet1$] (id,name) values('5','e')"

            myCommand.CommandText = sql

            myCommand.ExecuteNonQuery()

            MyConnection.Close()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

        MsgBox("Row Added ")

    End Sub

End Class