SQL in VBA help

[smartpat19]

HI, I am having issues with my current SQL Statement.

my immediate window is throwing the current error: "-2147217900:Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'."

I am trying to determine the number of records in the Dates table based on two fields.

Private Sub cmdSelectBySQL_Click()
    On Error GoTo Catch

    Dim strSql As String
    Dim cn As ADODB.Connection
    Dim objRst As ADODB.Recordset
    Dim lngCount As Long
    Dim project As String
    Dim report As String
    
    report = Sheets("Master").Range("f5")
    project = Sheets("Master").Range("f6")

    
    '' Get all categories
    strSql = "SELECT Count(*) FROM Dates HAVING (((([Dates].[Project_Number]))='" & project & "' And (([Dates].[Report_Name]))='" & report & "'));"
    
    Set objRst = New ADODB.Recordset
    objRst.Open strSql, cn.Connection, adOpenForwardOnly
    lngCount = objRst!cnt
    
    Debug.Print "Record count: " & lngCount
        
    '' Clean up
    objRst.Close
    Set objRst = Nothing
        
    Exit Sub
    
Catch:
    MsgBox "cmdSelectBySQL_Click()" & vbCrLf & vbCrLf & _
           "Error#:  " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub

Thank you,
Patrick

 

[Joe4]

In SQL, you do not use "HAVING" clauses, unless you are creating Aggregate Queries (which would have a "GROUP BY" clause).
Try changing "HAVING" to "WHERE".

 

[smartpat19]

In SQL, you do not use "HAVING" clauses, unless you are creating Aggregate Queries (which would have a "GROUP BY" clause).
Try changing "HAVING" to "WHERE".

Updated and i received this pop-up error. Not sure which object is referenced incorrectly.

 

[Joe4]

Try putting a break point near the top of your code, and test again.
When it puts you inside of the code, use the F8 to go through the code line-by-line, and see what line of code it is erroring out on.

 

[smartpat19]

Try putting a break point near the top of your code, and test again.
When it puts you inside of the code, use the F8 to go through the code line-by-line, and see what line of code it is erroring out on.

Failing on this line, I don't believe I am properly reference my database:

    objRst.Open strSql, cn.Connection, adOpenForwardOnly

I forgot to include my database connection at the top.

Public Const con1 As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=R:\Development Team Database\Development Team.accdb;PERSIST SECURITY INFO=FALSE;Jet "