Hi James,

I didn't spend much time on it, but one thing you could do is add the follwing code to If...Endif statement :

****begin if
if thisform.hscmbstallions.value <> " "

** // BEGIN Here
llFound = .F.
FOR i = 1 TO LEN(lctxt)
IF INLIST(SUBSTR(lctxt,i,1),"'")
llFound = .T.
ENDIF
ENDFOR
IF llFound
IF ALLTRIM(THISFORM.hscmbstallions.VALUE) = "CAM'S CARD SHARK"
STORE " booked_to = " + '"' + ("CAM'S CARD SHARK") +'"'+ " and " TO mbookedto
ELSE
STORE " booked_to = '" + ALLTRIM(THISFORM.hscmbstallions.VALUE ) + "' and " TO mbookedto
ENDIF
ENDIF

** // END HERE
***end of endif

Hope this helps

Ben