Index: TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb
===================================================================
diff -u -r1603 -r1605
--- TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1603)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1605)
@@ -26,12 +26,6 @@
         End Sub
 
         Private dr As OdbcDataReader
-        Public Sub sluitDataReader()
-            If Not (dr Is Nothing OrElse dr.IsClosed) Then
-                dr.Close()
-                dr = Nothing
-            End If
-        End Sub
 
         Private Sub ExecuteIntoDataReader(query As String)
             Try
@@ -49,7 +43,7 @@
                 ConnectToCache()
                 Return New OdbcCommand(query, _sqlConnection).ExecuteReader()
             Catch ex As Exception
-                Throw New Exception($"Kon datareader niet opvragen.{vbNewLine}{ex.Message}")
+                Throw New Exception($"Kon datareader niet opvragen uit Caché datatabank.{vbNewLine}{ex.Message}")
             End Try
         End Function
 
Index: TAOR-rework-bugfixing/TAOR rework/Rework/ReworkRepository.vb
===================================================================
diff -u -r1603 -r1605
--- TAOR-rework-bugfixing/TAOR rework/Rework/ReworkRepository.vb	(.../ReworkRepository.vb)	(revision 1603)
+++ TAOR-rework-bugfixing/TAOR rework/Rework/ReworkRepository.vb	(.../ReworkRepository.vb)	(revision 1605)
@@ -97,7 +97,6 @@
 
                 End If
             Next
-            CacheMapper.sluitDataReader()
         End Sub
 
         Public Sub slaAlleReworkRedenenOp()
@@ -107,7 +106,6 @@
                     CacheMapper.opslaanReworkReden(rework)
                 End If
             Next
-            CacheMapper.sluitDataReader()
         End Sub
 
     End Class