sub generate_criteria {
   my ($ColName, $Criteria) = @_;
   my @fields = map { s/'/''/g; $_ } split /\|/, $Criteria;

   return "( " . join(" or ", map { "$ColName LIKE '$_'" } @fields) . " )";
}