Function SQLEncode(sValue)
		Position = InStr(sValue, "'")
		Do While Position > 0
			sValue = Mid(sValue, 1, Position) & Mid(sValue, Position)
			Position = InStr(Position + 2, sValue, "'")
		Loop
		SQLEncode = sValue
	End Function