diff --git a/app/DD-Record-Organiser/ClassHelper.vb b/app/DD-Record-Organiser/ClassHelper.vb
index b6a7047..25858ab 100644
--- a/app/DD-Record-Organiser/ClassHelper.vb
+++ b/app/DD-Record-Organiser/ClassHelper.vb
@@ -244,7 +244,7 @@ Public Class ClassHelper
     End Function
     Public Shared Function DeleteRecord(ByVal SELECTED_RECORD_ID)
         Try
-            Dim DeleteRecordSQL = String.Format("EXEC [dbo].[PRPMO_DELETE_RECORD] {0} {1}", SELECTED_RECORD_ID, Environment.UserName)
+            Dim DeleteRecordSQL = String.Format("EXEC [dbo].[PRPMO_DELETE_RECORD] {0}, '{1}'", SELECTED_RECORD_ID, Environment.UserName)
             Return ClassDatabase.Execute_non_Query_withConn(DeleteRecordSQL, 1)
         Catch ex As Exception
             ClassLogger.Add("Unexpected Error in DeleteRecord: " & ex.Message, True)