Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb
===================================================================
diff -u -r1719 -r1720
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb	(.../ActiviteitenOpvolgingForm.vb)	(revision 1719)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb	(.../ActiviteitenOpvolgingForm.vb)	(revision 1720)
@@ -93,9 +93,15 @@
     ''' Try to reshresh all user grids and register time of latest refresh.
     ''' </summary>
     Private Sub RefreshUserGridsData()
-        'Refresh every user control. Register whether or not all refreshes were successful.
-        Dim allSuccesfulRefresh = _datagridViewUserControls.All(Function(userControl) userControl.RefreshData())
-        If allSuccesfulRefresh Then
+        Dim allSuccessfulRefresh As Boolean
+        Try
+            'Refresh every user control. Register whether or not all refreshes were successful.
+            allSuccessfulRefresh = _datagridViewUserControls.All(Function(userControl) userControl.RefreshData())
+        Catch ex As Exception
+            allSuccessfulRefresh = False
+        End Try
+        'Check if refresh was successful.
+        If allSuccessfulRefresh Then
             'Update latest refresh time label with current time.
             RefreshTimeLabel.Text = TimeOfDay.ToString("HH:mm")
             RefreshFailedLabel.Visible = False