ADODB.Recordset 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/mycontact.asp" -->
<%
Dim sear1__MMColParam
sear1__MMColParam = "1"
If (Request.QueryString("xingming1") <> "") Then
  sear1__MMColParam = Request.QueryString("xingming1")
End If
%>
<%
Dim sear1
Dim sear1_cmd
Dim sear1_numRows

Set sear1_cmd = Server.CreateObject ("ADODB.Command")
sear1_cmd.ActiveConnection = MM_mycontact_STRING
sear1_cmd.CommandText = "SELECT * FROM mycontact WHERE name = ?"
sear1_cmd.Prepared = true
sear1_cmd.Parameters.Append sear1_cmd.CreateParameter("param1", 200, 1, 50, sear1__MMColParam) ' adVarChar

Set sear1 = sear1_cmd.Execute
sear1_numRows = 0
%>




这是我的部分代码，是用ACCESS连的。。请各位看一下要怎么更改，谢谢了！