帮忙看个异常 ODBC 驱动程序不支持所需的属性 多谢 急等

帮忙看个错误 ODBC 驱动程序不支持所需的属性 谢谢 急等！
错误类型：Microsoft   OLE   DB   Provider   for   ODBC   Drivers   (0x80040E21)   ODBC   驱动程序不支持所需的属性

错误行
/main.asp,   第   12   行

  rs.open   sql,conn,1,1————————这行


<!--#include   file= "conn.asp "   -->
<%if   session( "dname ")= " "   then
'--------
response.write   " <script   language=javascript> alert( '由于长时间没有活动或没有登陆，请重新登陆！ ') </script> "
  response.write   " <script   language=javascript> window.open( 'index.asp ', '_parent ') </script> "
  response.end
'--------
end   if
riqi=date()
  set   rs=server.createobject( "adodb.recordset ")  
  sql= "select   *   from   rizhi   where   name= ' "&session( "dname ")& " '   and   riqi= ' "&riqi& " ' "
---------------------------------------------
---------------------------------------------
---------------------------------------------  
---------------------------------------------
  rs.open   sql,conn,1,1————————这行
-----------------------------------------------
---------------------------------------------
---------------------------------------------
if   not   rs.eof   then
  response.write   " <script   language=javascript> alert( '你今天已填写了日志！ ') </script> "
  Response.Redirect   "edit.asp?riqi= "&riqi
  end   if
rs.close
set   rs=nothing
work=Request( "work ")
IF   work= "yes "   Then
  set   rs=server.createobject( "adodb.recordset ")  
  sql= "select   *   from   rizhi "  
  rs.open   sql,conn,3,3
  rs.addnew
    rs( "riqi ")           =Request( "riqi ")
    rs( "czwt ")                 =Request( "czwt ")
    rs( "gx ")               =Request( "gx ")    
    rs( "chx ")               =Request( "chx ")
    rs( "time ")               =Request( "time ")
    rs( "gh ")               =Request( "gh ")
    rs( "ghhm1 ")               =Request( "ghhm1 ")
    rs( "ghhm2 ")               =Request( "ghhm2 ")
    rs( "ghhm3 ")               =Request( "ghhm3 ")
    rs( "ghhm4 ")               =Request( "ghhm4 ")
    rs( "ghhm5 ")               =Request( "ghhm5 ")    
    rs( "xlt ")               =Request( "xlt ")    
    rs( "xlthm1 ")               =Request( "xlthm1 ")
    rs( "xlthm2 ")               =Request( "xlthm2 ")