Shape = request("Shape")sql = "select * from drill "if Shape <> "" thensql = sql &"and Shape in ("&Shape&") "end ifsql = sql &"order by ID desc"Set Rs1 = Server.CreateObject("Adodb.RecordSet")Rs1.Open sql,conn,1,1上面的是源代码Shape是从复选框里面读出来的。提示Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)ODBC 驱动程序不支持所需的属性。数据库里的Shape是文本，应该是字符串格式，可能是类型不匹配。大大们帮帮忙吧！真不知道怎么办了。