For Each item In lst.ItemsSelected
CurrentDb.Execute "UPDATE tbl_Staffing SET Term_Heat_Ticket_Num = '" & _
Me.TxtTerm_Heat_Ticket_Num & "', Inactive_Status_Dt = #" & lst.Column(7, item) & _
"#, Termination_Reason_FK = " & lst.Column(9, item) & " WHERE ID = " & lst.Column(8...