这段代码如何求总数,不是rs.recordcount
Dim db As Database
Dim sheet As String
Dim accessPath As String
Dim accessTable As String
Dim sql As String
accessPath = App.Path & "\aaa.mdb"
accessTable = "qqq"
sheet = "Sheet1"
Set db = OpenDatabase(excelPath, True, False, "Excel 8.0")
sql = ("Select * into [;database=" & accessPath & "]." & accessTable & " from [" & sheet & "$]")
db.Execute (sql)