Вопросы VBA при попытке запустить SQL-запрос между двумя датами

Question

Чтобы дать краткий обзор цели этого макроса, я пытаюсь получить сумму наличных денег между определенными датами на основе набора параметров. Я продолжаю получать ошибку в VBA, когда пытаюсь запустить SQL-запрос с датой. Я не уверен, в чем проблема, но я думаю, что это связано с тем, как я форматировал дату. Я попытался запустить его несколькими способами, но продолжаю получать синтаксическую ошибку, связан ли она с «a», «#» или «table».

Вот запрос, который я использую. Любая помощь будет принята с благодарностью.

Sub GetCashBalance() 

Dim cn As New ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim SQL As String 
Dim StartDate As String 
Dim EndDate As String 

StartDate = InputBox("Enter Start Date in mm/dd/yy format.") 
EndDate = InputBox("Enter End Date in mm/dd/yy format.") 

SQL = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=master;Data Source=SERVER\ODS" 

Set cn = New ADODB.Connection 
Set rs = New ADODB.Recordset 

cn.Open SQL 
Set rs = cn.Execute("SELECT SUM(a.CASH)" & _ 
      "FROM CUSTOMER_DATA.dbo.TRANSACTION_HISTORY a" & _ 
      "LEFT JOIN CUSTOMER_DATA.dbo.DAILY_TRANSACTION b" & _ 
      "ON a.T01_KEY = b.T01_KEY" & _ 
      "WHERE PROC_DATE BETWEEN #StartDate# AND #EndDate#" & _ 
      "AND a.CODE NOT IN ('22','23','M','2-L','36-R')" & _ 
      "AND isnull(a.DESCRIPTION, '') NOT IN ('01','02','03','0DO1','0NF2');") 

If Not rs.EOF Then 
    Sheets(7).Range("A40").CopyFromRecordset rs 
    rs.Close 
Else 
    MsgBox "Error", vbCritical 
End If 

cn.Close 

End Sub 

Answer 1

Set rs = cn.Execute("SELECT SUM(a.CASH)" & _ 
      "FROM CUSTOMER_DATA.dbo.TRANSACTION_HISTORY a" & _ 
      "LEFT JOIN CUSTOMER_DATA.dbo.DAILY_TRANSACTION b" & _ 
      "ON a.T01_KEY = b.T01_KEY" & _ 
      "WHERE PROC_DATE BETWEEN '" & StartDate & "' AND '" & EndDate & _ 
      "# AND a.CODE NOT IN ('22','23','M','2-L','36-R')" & _ 
      "AND isnull(a.DESCRIPTION, '') NOT IN ('01','02','03','0DO1','0NF2');") 

Взгляните ниже кусок, который должен быть изменен

BETWEEN '" & StartDate & "' AND '" & EndDate & _    
"' AND .... 

Я думаю, что лучше использовать ADODB.Command и Parameters вместо того, чтобы делать конкатенации в запросе SQL.