listView.Items.Clear()
    cmd.CommandText = " select Item1," & _
                      "Item2, " & _
                      "Item3, " & _
                      "Item4," & _
                      "Item5," & _
                      "Item6" & _
                      " FROM myTable"
    gDR = cmd.ExecuteReader()
    While gDR.Read
        lstpenaltyview = listView.Items.Add(Null_To_String(gDR("Item1")))
        lstpenaltyview.SubItems.Add(gDR("Item2"))
        lstpenaltyview.SubItems.Add(gDR("Item3"))
        lstpenaltyview.SubItems.Add(gDR("Item4"))
        lstpenaltyview.SubItems.Add(gDR("Item5"))
        lstpenaltyview.SubItems.Add(gDR("Item6"))
    End While
テーブルからいくつかのものを削除しても、ListView に古いアイテムが残っていることに気付くことを除けば、すべて問題ないように見えます。クリアしましたよね?
ご協力いただきありがとうございます