datagrid的显示问题？

Question

Dim cn As ADODB.Connection
Dim rs As Recordset   'rs为记录集
Dim sql As String 'sql语句
Set cn = New ADODB.Connection
cn.Open connectstr '连接数据库
sql = "select * from student"
Set rs = cn.Execute(sql) '建立学生表
frmstu.Show
   下面这句总是报错
       Set frmstu.DataGrid1.DataSource = rs
错误为：实时错误‘7004’
         行集合不能作为标签这是怎么回事？

Answer 1

Dim cn As ADODB.Connection
Dim rs As Recordset   
cn.ConnectionString = "provider=" & providercob & ";server=" & servernametxt & ";uid=" & uidtxt & ";pwd=" & userpwd & ";database=" & databasename
cn.CursorLocation = adUseClient
cn.Open
sql = "select * from student"
rs.open sql,cn, adOpenDynamic, adLockOptimistic
你试试这样看行不行呀？

Answer 2

Set rs = cn.Execute(sql) 去掉
......
rs.CursorLocation = adUseClient
rs.Open sql,cn, adOpenKeyset, adLockPessimistic
......
......

Answer 3

Dim cn As new ADODB.ConnectionDim rs As new adodb.Recordset  Dim sql As String 'sql语句sql = "select * from student"Set rs = cn.Execute(sql) frmstu.ShowSet frmstu.DataGrid1.DataSource = rs
试试这个吧
一定可以的

Answer 4

出现新错误：
            实时错误91
             对象变量或with快变量未设置先谢谢你帮助：）

Answer 5

刚才是用lcaaa方法
的结果

Answer 6

Dim cn As ADODB.Connection
Dim rs As Recordset
Dim sql As String 
Set cn = New ADODB.Connection
cn.Open connectstr
rs.CursorLocation = adUseClient
set rs =new Recordset
sql = "select * from student"
rs.open sql ,cn,3,3
Set frmstu.DataGrid1.DataSource = rs