diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb
index be9a9f95..121739dc 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb
@@ -36,7 +36,7 @@ Public Class cParameterList
         Try
             LIST.Clear()
             Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
-                Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn)
+                Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND (firma=@firma or firma is null)", ""), conn)
                     cmd.Parameters.AddWithValue("@ProgId", ProgId)
                     If firma IsNot Nothing Then cmd.Parameters.AddWithValue("@firma", firma)
                     '  cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)