VBA通过迭代ADODB结果集来删除记录

I am trying to loop through an ADODB resultset and delete the record if a condition is true. However, when I do this only the first field of the record is deleted the rest of the record remains.I am trying to loop through an ADODB resultset