乱世红颜顾凌霄全文:ASP记录集的问题

<%
Dim search__skeyword
search__skeyword = "1"
If (request("keyword") <> "") Then
search__skeyword = request("keyword")
End If
%>
<%
Dim search

Dim search_numRows
dim sql
dim sch_type
sch_type=request("sch_type")
Set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_conn_STRING
if sch_type = 1 then
sql = "SELECT * FROM dbo.ky where sch_name like '" + Replace(search__skeyword, "'", "''") + "' ORDER BY sch_name ASC"
end if
if sch_type = 2 then
sql = "SELECT * FROM dbo.ky where sch_sf like '" + Replace(search__skeyword, "'", "''") + "' ORDER BY sch_name ASC"
end if

search.Source =sql
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 1
search.Open()

search_numRows = 0
%>

运行时说是
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
没有为命令对象设置命令。
/search_kyschool.asp, 第 30 行

怎么回事呀?