VB Code:
  1. IIf(IsNull(rs!replyMessage), "", Trim(Replace(rs!replyMessage), "'", ""))