单机神泣5.0:为什么出错???

Source line: rsvip.open "select vip from user where username='"&request.Cookies("timesshop")("username")&"' ",con,1,1
Description: ODBC 驱动程序不支持所需的属性。

PS:
SQL

vip是BIT类型
以下是代码:
<%
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from user where username='"&request.Cookies("timesshop")("username")&"' ",con,1,1
if rsvip("vip")=true then
txtvip = "VIP会员"
if Quatity<=1 then %>
<%=strvipprice%>元
<% else %>
<%=strvipprice*Quatity%>元
<%
end if
sum1=strvipprice*Quatity+sum1
else
txtvip = "普通会员"
rsvip.close
if Quatity<=1 then
response.write rs("price2")*1&"元"
else
response.write rs("price2")*Quatity&"元"
end if
sum1=rs("price2")*Quatity+sum1
end if
%></td>
<td align="center"><input type="submit" name="Submit" value="修改" onClick="this.form.action='cart.asp?id=<%=id%>';this.form.submit()">
</td>
</tr>
<%
end if
if bookscount=1 then books=rs("id")
rs.movenext
loop

set rsvip=nothing
rs.close
set rs=nothing%>