diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb
index d4f6d991..784f118c 100644
--- a/SDL/Fakturierung/frmRechnungenSuche.vb
+++ b/SDL/Fakturierung/frmRechnungenSuche.vb
@@ -542,9 +542,6 @@ Public Class frmRechnungenSuche
 
         Me.Cursor = Cursors.WaitCursor
 
-        Dim SQLMitPositionen As String = ""
-
-
         'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
         If brexitXLS Then
             cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
@@ -553,7 +550,7 @@ Public Class frmRechnungenSuche
             ' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
             sqlstr &= "SELECT  Rechnungsausgang.RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum,  isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
                 "  isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " &
-                ", * FROM [Rechnungsausgang] " & SQLMitPositionen & "  WHERE 1=1 "
+                " FROM [Rechnungsausgang]   WHERE 1=1 "
 
             If cbxMitPositionen.Checked Then
                 sqlstr = " SELECT  Rechnungsausgang.RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum,  isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
@@ -567,9 +564,6 @@ Public Class frmRechnungenSuche
         End If
         Me.Cursor = Cursors.Default
 
-
-
-
         'Me.Cursor = Cursors.WaitCursor
         ''cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
         'If brexitXLS Then