请各位编程高手出招，帮我看下面错在哪里，并给我改错好吗，或者有更好的方法请教，谢谢你的帮助！！！
这是我在VB中编写的代码如下：

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub search_Click()
cnn.Open "Driver={SQL Server};server=NTSERVER\NTSERVER;uid=sa;pwd=9999;database=his999"
                                         ’NTSERVER\NTSERVER  我的服务器名称
Set rs = cnn.Execute("Exec find_XM_ZYDXSF" & Text1.Text)  
                              ‘find_XM_ZYDXSF  为存储过程名称
DataGrid1.DataSource = rs    ‘DataGrid1 为显示查询结果数据控键
cnn.Close
End Sub



运行时出错如下：

编译错误：未找到方法或数据成员

请各位编程高手帮我看看下面程序错在哪里，并能帮我修改好吗，谢谢你的帮忙！！！

我在SQL 2000 创建的存储过程如下：

CREATE PROCEDURE [find_XM_ZYDXSF]
    (@BLH char (7))

AS 
begin

select * from  XM_ZYDXSF  where 病历号=@BLH
end
GO