【ＥＸＣＥＬ VBA】【ＳＱＬ】 レコード数を取得する方法

【ＥＸＣＥＬ VBA】 　ＳＱＬ文でレコード数を取得する方法です。

Dim rs1 As New ADODB.Recordset
Dim cmd1 As New ADODB.Command
Dim FileName1 As String
Dim DB1 As DAO.Database
  Set cn1 = New ADODB.Connection
  FileName1 = "\db1.mdb"
  cn1.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & FileName1
work_s = " SELECT count(*) As RecCount  from data WHERE 商品=”  & 商品 & “;” 
              
On Error Resume Next
Err.Number = 0
With myCmd1
   .ActiveConnection = myCon1
   .CommandText = work_s
   Set myRs1 = .Execute
End With
Do Until myRs1.EOF
   If IsNull(myRs1(0)) Then: work_d = 0: Else: work_d = myRs1(0):
   sum = work_d
   Exit Do
Loop