提示：“未找到方法或数据成员”DataGrid1.DataSource = objrs无法显示出来！

Question

问题如下：（加入DataGrid1.DataSource = objrs语句后）“提示：未找到方法或数据成员”如果去掉DataGrid1.DataSource = objrs就可以在text1.text=objrs.fields("use")中显示正常。我该如何办？Private Sub Command5_Click()
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\user.mdb"
objrs.Open "select sum(lever) as use ,count(lever) as le  from vendors ", objcon, 3, 1
Text1.Text = objrs.Fields("use")
Text2.Text = objrs.Fields("le")
DataGrid1.DataSource = objrsEnd Sub

Answer 1

改为Set DataGrid1.DataSource = objrs
对对象复值要用set来

Answer 2

Set DataGrid1.DataSource = objrs

Answer 3

Set DataGrid1.DataSource = objrs

Answer 4

Set DataGrid1.DataSource = objrs，datagrid2没有任何反应,空白的，没有东西！是啥子原因？

Answer 5

我也遇到了这个问题，DataGrid中全是空行，没有内容是什么原因？

Answer 6

这个问题好多人问呢
这样
在objrs.Open "select sum(lever) as use ,count(lever) as le  from vendors ", objcon, 3, 1
前面加上
objrs.cursorlocatioin=adouseclient  用客户端游标

Answer 7

objrs.cursorlocatioin=adouseclient  用客户端游标
提示：未找到方法或数据成员DATAGRID1。DATASOURCE=RS无法显示出来！

Answer 8

名象这样
objrs.open "select sum(lever) as use ,count(lever) as le  from vendors ",objcon,adOpenKeyset, adLockOptimistic