麻烦大侠给看看: ODBC驱动程序不支持所需的属性 ??怎么回事????

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/jlxt/Qy_QyxhFind_New.asp，行 103



93  Set Grs_Recordset = Server.Createobject("adodb.recordset")
94  Gs_Sql = "Select Qybm,Qymc,Zzzsbh,Zzdj,Yyzzzch,Txdz,Zczyjsryrs,Qyxydafs"
95  Gs_Sql = Gs_Sql & " From T_Qy_Zjzxqyxxb"
96  If Session("Session_FindMode") = "QYYHBM" Then    
97       Gs_Sql = Gs_Sql & " Where Qybm = '" & Session("Session_FindQyyhbm") & "'"
98  ElseIf Session("Session_FindMode") = "QYMC" Then
99       Gs_Sql = Gs_Sql & " Where Qymc Like '%" & Session("Session_FindQymc") & "%'"
100 Else
101       Gs_Sql = Gs_Sql & " Order By Qybm"
102 End If   
103 Grs_Recordset.Open Gs_Sql,conn,1,1
104 If (Not Grs_Recordset.Eof) And (Not Grs_Recordset.Bof) Then  
105      Call Fn_Blfz_Yhjbzl()    
106      If Session("Session_FindMode") = "QYYHBM" Then    
107         Ls_Title = "本系统注册企业[" & Session("Session_FindQyyhbm") & "—" & Ls_Qymc & "]基本资料记录"
108    ElseIf Session("Session_FindMode") = "QYMC" Then
109         Ls_Title = "本系统注册企业[" & Session("Session_FindQymc") & "]基本资料记录"
110    Else
111         Ls_Title = "本系统注册企业[所有]基本资料记录"
112    End If
113 Else
114      Ls_Title = "没有找到符合条件的系统注册企业基本资料记录"    
115 End If
116 End Sub
117 %>

103行前加一句
Response.Write Gs_Sql

还是不行啊!!!

找到了~~ 是我数据库里落下了一个代码~~~哈哈~~~
不过还是谢谢2楼的朋友哦 ~~~