A field value was entered as SA
Use the PB Replace command to replace all single quotes with two single quotes.
I use the function below each time:
Function SQTo2SQ(ByVal pString As String) As String
Replace "'" With "''" In pString
Function = pString
Worked like a champ.
sOthernames = VD_GetText(hFindOthernames&, %ID_FRMFINDOTHERNAMES_TXTOTHERNAMES)
Replace "'" With "''" In sOthernames
Thank you for the heads up.