ACCESS数据库用的方法:

Instr(','+Speciality+',',',2,')0  order By Id DESC"
    Set Rs=Conn.ExeCute(Sql)
    While Not Rs.Eof
        strHtml=strHtml&"