neu

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -154,7 +154,7 @@ Public Class cAdressen
             Return False
         End If
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen /*WITH(updlock,serializable)*/ WHERE AdressenNr=@AdressenNr) " &
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen  WHERE AdressenNr=@AdressenNr) " &
                        " BEGIN " & getUpdateCmd() & " END " &
                        " Else " &
                        " BEGIN " & getInsertCmd() & " END " &