Excel VBA到MS Access – 查询没有得到执行

下面的代码给出了一个错误“没有给出一个或多个参数的值”，并停在行：rs.open qry，cn

但是，如果当前注释掉的其他qry（SELECT * FROM CallData）被执行，那么代码运行没有任何问题。

我需要做些什么修改才能使代码正确运行GROUP BY查询？

    昏暗cn作为对象
     Dim rs As Object
    昏暗的qry作为string
    昏暗的插入作为工作表
     Dim strConnectString As String
    设置Insertws = ThisWorkbook.Sheets（“temp”）
     Insertws.Cells.Clear
    strConnectString =“Provider = Microsoft.Jet.OLEDB.4.0; Data Source = \ corpfiler09 \ 26663700_N01 \ NewAstt \ ASTT.MDB; Jet OLEDB：Database Password = test;”
     “连接数据库; 插入一个新的表格
     Set cn = CreateObject（“ADODB.Connection”）
     Set rs = CreateObject（“ADODB.Recordset”）
     'qry =“SELECT * FROM CallData;”
     qry =“SELECT Bank，Count（Bank）from CallData where TicketDate = Date GROUP BY Bank” 

cn.Open strConnectString rs.Open qry, cn

Answer 1

我会写这样的查询：

 SELECT CallData.Bank, Count(CallData.Bank) AS CountOfBank FROM CallData GROUP BY CallData.Bank, CallData.TicketDate HAVING (((CallData.TicketDate)=Date()));