Dim CB_OLE_ConString As String
        Dim CB_OLE_READER As DataTableReader
        Dim CB_OLE_Dataset As System.Data.DataSet
 
        Dim CB_OLE_COMMAND As System.Data.OleDb.OleDbDataAdapter
        CB_OLE_ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                            CB_QuellDatei.Text & ";Extended Properties=" & Chr( _
                            34) & _
                           "Excel 8.0;HDR=YES;IMEX=1" & Chr(34) & ";"
        CB_OLE_CON = New System.Data.OleDb.OleDbConnection(CB_OLE_ConString)
        CB_OLE_COMMAND = New System.Data.OleDb.OleDbDataAdapter("select * from" & _
          "[" & CB_Excel_TabName.Text & "$]", CB_OLE_CON)
        CB_OLE_Dataset = New System.Data.DataSet
        CB_OLE_COMMAND.Fill(CB_OLE_Dataset)
        CB_OLE_Dataset.Tables.Add(CB_Excel_TabName.Text)
 
        Dim ROW As DataRow
        'Dim COL As DataColumn
        Dim inhalt
        For Each ROW In CB_OLE_Dataset.Tables(0).Rows
            inhalt = ROW("Typ-Schlüssel")
            ROW.BeginEdit()
            ROW("Typ-Schlüssel") = "2"
            ROW.EndEdit()
 
 
        Next ROW