Function SQTo2SQ(ByVal pString As String) As String
Replace "'" With "''" In pString
Function = pString
End Function
sOthernames = VD_GetText(hFindOthernames&, %ID_FRMFINDOTHERNAMES_TXTOTHERNAMES)
Replace "'" With "''" In sOthernames