Hi. Can anyone help me fix this error? Characters found after end of SQL statement.
Whenever I run the query, It only works when I remove these extra characters at the end of the SQL:
",
"refusal": null,
"annotations": []

The generated SQL Code:
SELECT CustomerT.CustomerID, CustomerT.FirstName, CustomerT.LastName
FROM CustomerT
WHERE CustomerT.IsActive=True;",

"refusal": null,
"annotations": []

This is where the error points when I click the debug button:

Details

Private Sub ViewResultsBtn_Click()

    Dim db As Database
    Dim Q As QueryDef

    Set db = CurrentDb()
    On Error Resume Next
    DoCmd.DeleteObject acQuery, "TempQ"
    On Error GoTo 0
    Set Q = db.CreateQueryDef("TempQ", OpenAIResponse)
    DoCmd.OpenQuery "TempQ", acViewNormal
    'db.QueryDefs.Delete "TempQ" ' put this line in if you want TempQ deleted after it runs
    Set Q = Nothing
    Set db = Nothing
        
End Sub
Copy

Appreciate your help.