同一个程序，两个机器，一个的数据库查询结果可以滚动，一个不行，为什么？(100分)

Dim ADOrs As New ADODB.Recordset
Dim ADOconn As New ADODB.Connection

ADOconn.Open ("Driver={Microsoft ODBC for Oracle};Server=" & strServer & ";Uid=" & strUserName & ";Pwd=" & strPassword)
strSQL = "SELECT ..."
rs.Open strSQL, ADOconn, 1, 1
If rs.RecordCount > 0 Then //不行的机器返回-1,正确的机器为一正整数
...

这主要涉及哪方面的问题？谢谢

在 If rs.RecordCount > 0 Then 这句之前加一句 rs.last 试试。
因为经常有发现RecordCount取不到数据的现象，加了last就可以了，不知道对你管不管用，可以试一试。

我感觉可能是一台机器已经打了ADO的补丁，而另一个没有打ADO的补丁的原因。
希望我的回答对你有所帮助!