Private Sub btnDelete_Click()
        '---- Recordset vorbereiten
        With dbXls
            .RecordSource = SqlString(tabCD, "[CD_ID] = " & ActualID)
            .Refresh    'aktualisieren
        End With
 
        With dbXls.Recordset
            .Edit
            .fields(10).Value = "X"
            .Update
        End With
        frmMain.DelCdEntry ActualID
End Sub