excel使用ado链接excel统计表的行数，报800040e14错

[白米汤]

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=D:\库1.xlsx;" & "Extended Properties=""Excel 12.0 Xml;IMEX=1"""
Dim a, sql As String
Dim r As Long

a=”表2“
sql = "SELECT Count(*) FROM a$"
rs.Open sql, con   ‘程序执行到这行报800040e14错
r = rs.Fields(0).Value

我excel软件引用的控件都勾选了的，操作系统win11 64位，office版本 

 高手们，这是怎么回事，谢谢