Delete query works in Access but not when I try to run with VBA

[WickidWe]

My Working Query In VBA

DELETE *
FROM tblRosterRec
WHERE ID <>  (SELECT Max(ID) AS MaxOfID FROM  tblRosterRec AS Dupe      
   WHERE (Dupe.EmpID =  tblRosterRec.EmpID)                         
   AND (Dupe.Date_ =  tblRosterRec.Date_));

My VBA Code (not working)"

Dim sSQL As String
sSQL = "DELETE * " & _
"FROM tblRosterRec " & _
"WHERE ID <>  (SELECT Max(ID) AS MaxOfID FROM  tblRosterRec AS Dupe" & _
"WHERE (Dupe.EmpID =  tblRosterRec.EmpID)" & _
"AND (Dupe.Date_ =  tblRosterRec.Date_));"
CurrentDb.Execute (sSQL)

Error:

[WickidWe]

sorted myself
I missed the space before " & _

[June7]

Statement run-on - missing a space between: AS DupeWHERE

Put a space in the code: AS Dupe "