主题：[求助]救助语句如何写

dim xm() as string ={"张三","李四","王五"}

select case e.datacol.name

  case "姓名"

  if e.datarow("姓名") in xm then

     代码1

  else

     代码2

  end if

-----------

现在是红色部分不知道怎么写，查了下帮助没找到，就是只要姓名字段等于我定义的一串字符中的一个就执行代码1

用cotains("张三")我会，但是名单有点长