Properly encode ampersand in XML output

The XML output for a table def from Microsoft Access does not correctly encode the ampersand character. This creates XML that is technically invalid, and later fails to parse. #314

Version Control.accda.src/modules/modSanitize.bas

@@ -502,6 +502,13 @@ Public Function SanitizeXML(strPath As String, blnReturnHash As Boolean) As Stri
     Perf.OperationStart "Sanitize XML"
     curStart = Perf.MicroTimer
 
+    ' Exporting Table Def as XML does not properly encode ampersand character (See #314)
+    ' Most likely if any ampersands are encoded correctly, all of them will be.
+    If InStr(1, strFile, "&", vbTextCompare) = 0 Then
+        ' Properly encode any embedded ampersand characters to make valid XML
+        strFile = Replace(strFile, "&", "&")
+    End If
+
     ' Split into array of lines
     varLines = Split(FormatXML(strFile), vbCrLf)