Dim updateSQL As String = "update [" & CB_Excel_TabName.Text & "$] set" & _
          "[Typ-Schlüssel]=? where ID=?"
        Dim updateCmd As New OleDb.OleDbCommand(updateSQL, CB_OLE_CON)
        updateCmd.Parameters.Add("P1", OleDb.OleDbType.VarChar, 20, _
          "[Typ-Schlüssel]")
        updateCmd.Parameters.Add("P2", OleDb.OleDbType.Integer, 32, "ID")
 
        CB_OLE_Adapter.UpdateCommand = updateCmd
 
        CB_OLE_Adapter.Update(CB_OLE_Dataset) ', CB_Excel_TabName.Text