objWksSrc.Rows(zeile).Delete Shift:=xlUp

Private Sub Löschen_Click()
 '---- Recordset vorbereiten
 
 
  With dbXls
    .RecordSource = SqlString(tabTrack, "[CD_ID] = " & ActualID)
    .Refresh 'aktualisieren
  End With
 
  With dbXls.Recordset
    .MoveLast
    .AbsolutePosition = ActualTrack - 1
    .Delete '
 
    .Update
  End With
 
  frmMain.DelTrEntry ActualTrack
 
 End Sub