Imports System.Data.OleDbImports System.Data 
 
Public Class Form1 
    Private objDataSet As DataSet
    Private objAdapter As OleDbDataAdapter
    Private objConnection As OleDbConnection 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Dim XLS_Datei As String = "F:\Test\test.xls"
 
        Try
            objConnection = New OleDbConnection( _
              "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & XLS_Datei & _
              "'; " & "Extended Properties=Excel 8.0;") 
            objAdapter = New OleDbDataAdapter("select * from [Tabelle1$]", _
              objConnection)
            objDataSet = New DataSet 
            objAdapter.Fill(objDataSet) 
            Dim objTabelle As DataTable = objDataSet.Tables(0)
            DataGridView1.DataSource = objTabelle.DefaultView
            DataGridView1.AutoResizeColumns()
 
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
 
    End Sub 
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Try
            If objAdapter.UpdateCommand Is Nothing Then
                Dim objCommand As New OleDb.OleDbCommand("UPDATE [Tabelle1$] " _
                  & _
                  "SET Col1 = ?, Col2 = ?, Col3 = ?  WHERE Id = ?", _
                  objConnection)
 
                objCommand.Parameters.Add("col1", OleDbType.Char, _
                  255).SourceColumn = "Col1"
                objCommand.Parameters.Add("col2", OleDbType.Char, _
                255).SourceColumn = "Col2"
                objCommand.Parameters.Add("col3", OleDbType.Char, _
                255).SourceColumn = "Col3"
                objCommand.Parameters.Add("id", OleDbType.Char, _
                255).SourceColumn = "Id"
                objAdapter.UpdateCommand = objCommand
            End If
 
            objAdapter.Update(objDataSet)
 
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
 
    End Sub
 
End Class