Dim objDataSet As System.Data.DataSet
        Dim objConnection As System.Data.OleDb.OleDbConnection = Nothing
        Dim objAdapter As System.Data.OleDb.OleDbDataAdapter
        objDataSet = New System.Data.DataSet
        objConnection = New System.Data.OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & XLS_Datei & " ';" & _
          "" & "Extended Properties=Excel 8.0;")
        objAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [" & _
        TabellenName & "$]", objConnection)
 
 
        Try
            If objAdapter.UpdateCommand Is Nothing Then
                Dim objCommand As New OleDb.OleDbCommand("UPDATE [" & _
                  TabellenName & "$]" & _
                  "SET Test1 = ?, Test2 = ?, Test3 = ?  WHERE Test1 = ?", _
                  objConnection)
                objCommand.Parameters.Add("Test1", OleDbType.Char, _
                255).SourceColumn = "Test1"
                objCommand.Parameters.Add("Test2", OleDbType.Char, _
                255).SourceColumn = "Test2"
                objCommand.Parameters.Add("Test3", OleDbType.Char, _
                255).SourceColumn = "Test3"
                objCommand.Parameters.Add("Test4", OleDbType.Char, _
                255).SourceColumn = "Test4"
                objAdapter.UpdateCommand = objCommand
            End If
 
 
            CType(Me.BindingContext(DataGridView1.DataSource), _
              CurrencyManager).EndCurrentEdit()
            objAdapter.Update(objDataSet)
 
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try