rs.RecordCount 为-1？？？？

[wxylvmnn]

Dim sql,ConcStr
Dim cn As ADODB.Connection, rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

ConcStr = "Provider=SQLOLEDB.1;DATA SOURCE=xx;USER ID=xx;PASSWORD=xx;DATABASE=xx"

cn.Open ConcStr

sql = "select * from xxx"

rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Debug.Print rs(0).value '正常

Debug.Print rs.RecordCount '返回值为-1，为什么哇？

[wxylvmnn]

解决就给分

[Andy__Huang]

Dim sql,ConcStr
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConcStr = "Provider=SQLOLEDB.1;DATA SOURCE=xx;USER ID=xx;PASSWORD=xx;DATABASE=xx"
cn.Open ConcStr
sql = "select * from xxx"
rs.cursorlocation=aduseclient
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Debug.Print rs.RecordCount

[Andy__Huang]

Dim sql,ConcStr
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConcStr = "Provider=SQLOLEDB.1;DATA SOURCE=xx;USER ID=xx;PASSWORD=xx;DATABASE=xx"
cn.Open ConcStr
sql = "select * from xxx"
rs.cursorlocation=aduseclient --->加這行
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Debug.Print rs.RecordCount

[zjcxc]

Dim sql,ConcStr
Dim cn As ADODB.Connection, rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

ConcStr = "Provider=SQLOLEDB.1;DATA SOURCE=xx;USER ID=xx;PASSWORD=xx;DATABASE=xx"

cn.Open ConcStr

sql = "select * from xxx"

rs.CursorLocation=3 ''加上这句

rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Debug.Print rs(0).value '正常

Debug.Print rs.RecordCount

[XLYT]

cn.cursorlocation=aduserclient
或者：
先rs.movelast，然后再rs.movefirst。

[wxylvmnn]

挖，五星红旗。