为什么vb用ADO连Oracle时，总是rs.RecordCount = -1

Question

Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source=XXX;Persist Security Info=True"    rs.Open "select * from Emp", cn, 1, 1
    
    Text1.Text = rs.RecordCount
    
    rs.Close
    cn.Close
End Sub

Answer 1

指针问题,加一句话就行.
adoRs.CursorLocation = adUseClient

Answer 2

驱动最好用oledb，类似
Session("DataConn_ConnectionString") = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=report;PASSWORD=report;Data Source=test;Extended Properties='';"