用datagrid显示数据的问题

想实现在datagrid1中显示出数据，却提示“未找到方法或数据成员”（下面红色部分），什么原因？
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = ADODB.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn.ConnectionString = "Data Source=" & App.Path & "\dbl.mdb;"
cnn.Open
Set rst = cnn.Execute("select * from money1")
DataGrid1.DataSource = cnn
End Sub
--------------------编程问答-------------------- cnn.CursorLocation = adoUseClient
rst.Open "select * from money1", cnn 
Set DataGrid1.DataSource = rst --------------------编程问答-------------------- DataGrid1.DataSource = rst
DataGrid1.DataBand
--------------------编程问答--------------------

引用 1 楼 of123 的回复:

cnn.CursorLocation = adoUseClient 
rst.Open "select * from money1", cnn  
Set DataGrid1.DataSource = rst

1楼为正解 --------------------编程问答-------------------- DataGrid1.DataSource = rst --------------------编程问答-------------------- lz要干嘛？ --------------------编程问答-------------------- 好像没那么简单,呵呵.

补充：VB ,  数据库(包含打印，安装，报表)