[VB.NET] LISTVIEW - Fazendo UPDATE em tabela

Bom dia amigos

Tenho um listview com checkbox, gostaria que os itens ativados pelo checkbox fizessem um update em uma tabela.
Estou tentando com o seguinte código:

Private Sub alteraDados()

Dim con As New SqlConnection(strCmd)
Dim cmd As SqlCommand

con.Open()

Try
For i As Integer = 0 To listHistoricoVendas.Items.Count - 1

Dim sql As String = ""
Dim dataVenda As Integer = Val(listHistoricoVendas.Items(i).SubItems(0))
Dim dvPrazo As Integer = Val(listHistoricoVendas.Items(i).SubItems(3))

 Dim dvFinalizada As String = "SELECT * FROM TB_FinalizaVenda WHERE DataVenda =" & dataVenda

 cmd = New SqlCommand(dataVenda, con)
 dvFinalizada = CStr(cmd.ExecuteScalar())
 sql = "UPDATE TB_FinalizaVenda SET FormaPagamento = 'Pago' WHERE DataVenda = " & (dataVenda)
 cmd = New SqlCommand(sql, con)
 cmd.ExecuteNonQuery()

 Next
 Catch ex As Exception
 MsgBox(ex.Message)
 Finally
 con.Close()
 cmd = Nothing
 End Try

 End Sub

Aperece o seguinte erro: O argumento 'expression' não pode ser convertido no tipo listviewsubitem

Se alguém puder me ajudar.