为什么缺少对象

为什么第{Set rs = conn.Execute( "select * from wineout" )}缺少对象
<%
Response.Expires = 0
'第一部分: 建立连接
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:/chartp/chartp/grape.mdb"
Cnn.Open StrCnn
Set rs = conn.Execute( "select * from wineout" )
%>