如何只作小量修改就能以部份数据值实现此项功能？

以下代码只能查询字段mtype里的“2009年第一批”、“2009年第二批”。错一个字不能查到，提示无此数据。在字段mtype里有一个共通的关键字是“2009”。如何只作小量修改就能以“2009”关键字就可实现此项功能？请高手指教，谢谢！
<%
dates=dateadd("d",date(),100)
 set rec=server.createobject("adodb.recordset")
select case mtype:
          case 1:
               sql="select * from [users] where mtype='2009年第一批' and success='是'order by date desc"
          case 2:
               sql="select * from [users] where mtype='2009年第二批' and success='是'order by date desc"
          case 3:
               sql="select * from [users] where other=0 and date > "&dates
          end select
   rec.Open sql,conn,1,1
%>