Dim ds As New DataSet("Costcenter")
        Dim tbl As DataTable = ds.Tables.Add("Costcenter")
        tbl.Columns.Add("CostID")
        tbl.Columns("CostID").AutoIncrement = True
        tbl.Columns("CostID").AutoIncrementSeed = -1
        tbl.Columns("CostID").AutoIncrementStep = -1
        tbl.Columns.Add("Costcenter")
        tbl.Columns.Add("Timestamp")
        ds.Tables("Costcenter").PrimaryKey = New DataColumn() {ds.Tables( _
          "Costcenter").Columns("Costcenter")}
 
        Dim row As DataRow
        row = tbl.NewRow
        row("Costcenter") = "123456"
        tbl.Rows.Add(row)
        tbl.AcceptChanges()
 
        ' Zeile löschen - TBL
        row = tbl.Rows.Find("123456")
        If Not row.IsNull("Costcenter") Then
            row.Delete()
        End If
 
        If ds.HasChanges Then
            Cn.Open()
            Dim cmdDelete As New OracleCommand("DELETE FROM Costcenter WHERE" & _
              "Costcenter = : pCostcenter", Cn)
            cmdDelete.Parameters.Add(": pCostcenter", OracleDbType.NVarchar2, _
            10)
 
            Dim da As New OracleDataAdapter
            da.DeleteCommand = cmdDelete
            da.Update(tbl)
            Cn.Close()
        End If