Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisMapper.vb
===================================================================
diff -u -r1609 -r1614
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisMapper.vb	(.../ArdisMapper.vb)	(revision 1609)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisMapper.vb	(.../ArdisMapper.vb)	(revision 1614)
@@ -50,6 +50,9 @@
                 data.Add(dr.GetValue(0).ToString)
             End While
 
+            'Connectie met data reader sluiten.
+            dr.Close()
+
             'De lijst retourneren.
             Return data
         Catch ex As Exception
@@ -63,12 +66,11 @@
     ''' <param name="query"></param>te converteren naar 'ArdisData'.
     ''' <returns>De gevulde ArdisData</returns>
     Private Function ExecuteIntoResultset(query As String) As ArdisData
-        Dim ardisData As ArdisData = Nothing
         'Data reader opvragen.
         Dim dr = ExecuteIntoDataReader(query)
         'Datareader lezen, eerste record ophalen en retourneren als Ardis data.
         dr.Read()
-        ardisData = New ArdisData With {
+        Dim ardisData = New ArdisData With {
             .PartId = CStr(dr.Item("PartId")),
             .OrderId = CStr(dr.Item("OrderId")),
             .PartRef = CStr(dr.Item("PartRef")),
@@ -101,6 +103,10 @@
             .PartExt10 = If(IsDBNull(dr.Item("PartExt10")), Nothing, CStr(dr.Item("PartExt10"))),
             .PartExt11 = If(IsDBNull(dr.Item("PartExt11")), Nothing, CStr(dr.Item("PartExt11")))
         }
+
+        'Connectie met data reader sluiten.
+        dr.Close()
+
         Return ardisData
     End Function