From d65eeafdd0497046144f22bdde920a08a929e44c Mon Sep 17 00:00:00 2001
From: JenneJ <j.jenne@didalog.de>
Date: Mon, 12 Oct 2015 11:55:59 +0200
Subject: [PATCH] fix dbnull error

---
 app/BrainpoolXmlParser/DB.vb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/app/BrainpoolXmlParser/DB.vb b/app/BrainpoolXmlParser/DB.vb
index 531f6b9..a15bf63 100644
--- a/app/BrainpoolXmlParser/DB.vb
+++ b/app/BrainpoolXmlParser/DB.vb
@@ -66,6 +66,10 @@ Public Class DB
         Dim sql = String.Format("SELECT VALUE FROM {0} WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", table, controlId, recordId)
         Dim value = Me.Scalar(sql)
 
+        If (IsDBNull(valueToCompare) Xor IsDBNull(value)) Then
+            Return False
+        End If
+
         Return value = valueToCompare
     End Function