MS_31.03

app/DD-Record-Organiser/ClassDatabase.vb

@@ -224,6 +224,9 @@ Public Class ClassDatabase
     Public Shared Function Execute_Scalar(cmdscalar As String, Optional Userinput As Boolean = False)
         Dim result
         Try
+            If cmdscalar = "select RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID" Then
+                MsgBox("Unexpected SQL Error - Details following....", MsgBoxStyle.Exclamation)
+            End If
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
             SQLconnect.ConnectionString = connectionString