a程序报错为什么缺少对象！请求帮助

为什么{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" )
%>