VBA的SQL判断语句怎么写？

layaman_999

function ss(i)
select case i
case 1
  ss ="ok"
case 2
ss = "no"
case else
ss = null
end select
end function

==============
access SQL中:
select ss([字段名]) as 标题 from 表