excel中的Adodb记录集计数

通过以下任何编码的帮助，我能够将所需数据从一张表复制到另一张表，但显示不正确的记录计数为“-1”。 我不确定出了什么问题

此编码显示“-1”

mrs.RecordCount

全编码

Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New adodb.Connection
Dim mrs As New adodb.Recordset
Dim DBPath As String, sconnect As String
DBPath = ThisWorkbook.FullName
sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
Conn.Open sconnect

sSQLSting = "SELECT * From [DataSheet$A1:F4247]" 
mrs.Open sSQLSting, Conn
MsgBox mrs.RecordCount

ThisWorkbook.Sheets("Sheet3").Range("A2").CopyFromRecordset mrs
Close Recordset
mrs.Close
Conn.Close

---

Recordcount

仅适用于客户端、服务器端-静态或服务器端-键集的游标。你有一个只向前的光标。同意@Rory。尝试

mrs.Open-sSQLSting，康涅狄格州，3，1

。这是服务器端静态和只读的。