Dim objRs As New Adodb.Recordset Dim objCon As New Adodb.ConnectionobjCon.Open "数据库连接字符串" objRs.Open strSql, objCon, adOpenKeyset, adLockOptimistic, &H1
Dim objRs As New Adodb.Recordset Dim objCon As New Adodb.ConnectionobjCon.Open "数据库连接字符串" objRs.CursorLocation=adUseClient objRs.Open strSql, objCon msgbox objrs.recordcount
RS.MOVELASET
RS.RECORDCOUNT
Dim objCon As New Adodb.ConnectionobjCon.Open "数据库连接字符串"
objRs.Open strSql, objCon, adOpenKeyset, adLockOptimistic, &H1
Dim objCon As New Adodb.ConnectionobjCon.Open "数据库连接字符串"
objRs.CursorLocation=adUseClient
objRs.Open strSql, objCon
msgbox objrs.recordcount