SQL Statement Debugging in Classic ASP

I have this query running in Access but when I use the same sql statement in classic ASP VBScript page it does not work. I keep getting an Microsoft VBScript compilation error '800a0409' Unterminated string constant error? Here is the code on the asp page.

<% Dim rsCustomers Dim rsCustomers_cmd Dim rsCustomers_numRows Set rsCustomers_cmd = Server.CreateObject ("ADODB.Command") rsCustomers_cmd.ActiveConnection = MM_pfe_conn_STRING rsCustomers_cmd.CommandText = "SELECT DISTINCT CustomerScopeRepairHistory.PO, CustomerScopeRepairHistory.RepairCost, CustomerScopeRepairHistory.CustomerScopeID, CustomerScopeRepairHistory.CusDate, customers.CusNum, CustomerScopeRepairHistory.CustomerScopeID, CustomerScopeRepairHistory.Evaluation, CustomerScopeRepairHistory.Cause FROM customers, CustomerScopeRepairHistory WHERE (((CustomerScopeRepairHistory.CusDate) Like "*2024") AND ((customers.CusNum)="734"));" rsCustomers_cmd.Prepared = true Set rsCustomers = rsCustomers_cmd.Execute rsCustomers_numRows = 0 %>