请教下关于ListView中复选框的问题

Question

Dim SQL As String
    Dim s As String
    Dim i As Long
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Checked = True Then
            s = s & "'" & ListView1.ListItems(i).Text & "',"
        End If
    Next
    If Len(s) > 0 Then
        s = Left(s, Len(s) - 1)
        Call OpenConn
     cn.Execute ("delete * from 商品信息 where ID in (" & s & ")")     
End If
Call CloseConn
 End If'这样能根据标记来删除.'但为什么下面的行不通呢?请教各位该如何解决呢?
If s = "001" Then
MsgBox "ID为001不能被删除!", 64, "提示"
Exit Sub
End If

Answer 1

就是这句
If s = "001" Then
MsgBox "ID为001不能被删除!", 64, "提示"
Exit Sub
End If如果标记的ID是001,则提示不能删除.

Answer 2

Dim SQL As String
    Dim s As String
    Dim i As Long
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Checked = True Then
           IF ListView1.ListItems(i).Text<>"001" THEN  '加上此个判断
              s = s & "'" & ListView1.ListItems(i).Text & "',"
           END IF '我加上的语句
        End If
    Next
    If Len(s) > 0 Then
        s = Left(s, Len(s) - 1)
        Call OpenConn
     cn.Execute ("delete * from 商品信息 where ID in (" & s & ")")     
End If
Call CloseConn
 End If