高手请进,关于listview行的删除

Question

Dim sql As String
If Form5.ListView1.ListItems.Count > 0 Then
    Form5.ListView1.ListItems.Remove (Form5.ListView1.SelectedItem.Index)
End If
sql = "Delete from QCSTAB where ID='" & Form5.ListView1.ListItems(Form5.ListView1.SelectedItem.Index).Text & "'"
conn.Execute sql
提示错误:对象变量或With块未设置,为什么,当删除到最后一行就提示错误,请指教

Answer 1

If Form5.ListView1.ListItems.Count > 0 Then
    Form5.ListView1.ListItems.Remove (Form5.ListView1.SelectedItem.Index)
End If和sql = "Delete from QCSTAB where ID='" & Form5.ListView1.ListItems(Form5.ListView1.SelectedItem.Index).Text & "'"
conn.Execute sql
这2个代码位置对调一下.执行完Form5.ListView1.ListItems.Remove (Form5.ListView1.SelectedItem.Index)后，listview已经没listitem了．

Answer 2

大概是 Form5.ListView1.SelectedItem 这个对象没有了。跟踪一下代码就能查到。