SQL Syntax - Something is wrong

I keep getting a warning that something is wrong with my syntax in the SQL part of the code below:

Private Sub btnDeleteAssignment_Click()
'****Delete a record from the SubtaskAssignments table****

Dim frm As Form
Dim ctl As Control
Dim db As DAO.Database
Dim strSQL As String
Dim i As Variant

Set frm = Forms("f_SubTaskAssignments")
Set ctl = frm![lstExistingAssignments]
Set db = CurrentDb

For Each i In ctl.ItemsSelected

'***For future reference - Add chr(34) around text!

strSQL = "DELETE FROM SubTaskAssignment WHERE " & _
        "[TaskOrderID] = " & ctl.Column(0, i) & " AND [SubTaskID] = " & ctl.Column(5, i) & " AND [CompanyID] = " & ctl.Column(6, i) & " And [PersonID] = " & ctl.Column(7, i) & " And [ReportAs] = " & Chr(34) & ctl.Column(4, i) & Chr(34) & ")"
            
db.Execute strSQL, dbFailOnError

Next i

ctl.Requery
End Sub

Select allOpen in new window

I can't see it! It is probably right in front of me, but I have been looking at this code for over an hour and cannot, for the life of me, figure out what the problem is.

Can someone please take a look at tell me where the syntax is wrong? The error message says it is in the strSQL section, though it highlights the db.execute strsql, dbFailOnError.