谁给说说Adodb.command.execute的问题

[watanuolys]

我照着msdn写的，但是rs 的 recordCount是 -1
谁有执行成功的语句？
我就想用 command.execute来执行sql，不想用rs.open.

Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Testdb.mdb;"
cmd.ActiveConnection = cn
cmd.CommandText = "select * from sampletbl"
Set rs = cmd.Execute

Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
MsgBox rs.Fields(i).Value
Next
rs.MoveNext
Loop

[mustudent]

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Testdb.mdb;"
Set rs = CON.EXEC "select * from sampletbl"

[mustudent]

Dim Con As New ADODB.Connection
Dim Com As New ADODB.Command
Dim Rs As New Recordset
Con.ConnectionString = Me.Adodc1.ConnectionString
Con.Open
Com.ActiveConnection = Con
Com.CommandType = adCmdText
Com.CommandText = "SELECT * FROM TTT"
Set Rs = Com.Execute
Set Me.DataGrid1.DataSource = Rs

[mbmseason]

现在可知的原因是Execute返回的Recordset不支持反向提取,无法自动定位EOF,所以计算不出PageCount的值；
不过,Recordset确实已经被填充了数据了,使用MoveNext配合EOF也可以遍历数据集