Dim MyConnection As OleDb.OleDbConnection
 
            Dim MyCommand As OleDb.OleDbDataAdapter
            MyConnection = New OleDb.OleDbConnection _
            ("provider=Microsoft.Jet.OLEDB.4.0;" & _
            " Data Source=" & Me.txtPfad.Text & "; " & _
             "Extended Properties=Excel 8.0;")
            If Me.lbxworksheets.SelectedItems.Count > 0 Then
                MyCommand = New System.Data.OleDb.OleDbDataAdapter _
                    ("select * from [" & Me.lbxworksheets.SelectedItem & "$]", _
                    MyConnection)
                MyCommand.TableMappings.Add("Table", "MyTable")
                DtSet = New System.Data.DataSet
                MyCommand.Fill(DtSet)
                dgvImport.DataSource = DtSet.Tables(0)
 
                Dim column As DataColumn
                column = New DataColumn()
                column.DataType = System.Type.GetType("System.Boolean")
                column.ColumnName = "UPDATED"
                column.DefaultValue = False
                DtSet.Tables("MyTable").Columns.Add(column)
                MyConnection.Close()
             End If

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten