Caricare dati da listview al database MySQL

[aizenn]

Salve a tutti.

Di solito io carico dati nel database mysql e dopo li caricato in una listview, questa volta ho la necessita di caricare dei dati in una listview e dopo caricarli nel database come posso fare?

Per caricare i dati nel database faccio così:

  Public Sub Aggiungi()        
strSQL = "insert into fatture(Nome, Descrizione,Prezzo) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
        CONNECTION.Open()
        cmd = New MySqlCommand(strSQL, CONNECTION)
        dr = cmd.ExecuteReader()
        dr.Close()
        cmd.Dispose()
        CONNECTION.Close()
    End Sub

Per estrarli nella listview faccio così:

 Public Sub Caricamento()        
strSQL = "SELECT * FROM fatture"
        CONNECTION.Open()
        cmd = New MySqlCommand(strSQL, CONNECTION)
        dr = cmd.ExecuteReader()


        Do While dr.Read()
            Nome = (dr.Item("Nome").ToString())
            Descrizione = (dr.Item("Descrizione").ToString)
            Prezzo = (dr.Item("Prezzo").ToString)




            Dim lv As ListViewItem = ListView1.Items.Add(Nome)


            lv.SubItems.Add(Descrizione)
            lv.SubItems.Add(Prezzo)


        Loop
        dr.Close()
        cmd.Dispose()
        CONNECTION.Close()
    End Sub

Adesso io ho necessita di caricare vari dati nella listview, quando finisco di caricare tutti i dati di cui ho bisogno nella listview deve caricarli nel db.

Per caricare i dati dalle textbox alla listview ho fatto così:

Dim lv As ListViewItem = ListView1.Items.Add(TextBox1.Text)
        lv.SubItems.Add(TextBox2.Text)
        lv.SubItems.Add(TextBox3.Text)

Come faccio ora a caricare questi dati nel database?

Allego qui il sorgente con l'interfaccia.
Il bottone inserisci(inserisce i dati nella listview)
Il bottone carica nel db(dovrebbe caricare i dati nel database, ma non so come.)

File Sorgente: https://mega.co.nz/#!wl4AEAqB!s5Pube...taFv-g94Sw4IoI

Mi scuso se violo il regolamento mettendo il link di mega, ma non riuscivo a caricare il file allegato.
Grazie in anticipo.

[aizenn]

Ho risolto, grazie lo stesso

Codice utilizzato:

For Each x As ListViewItem In ListView1.Items
            Dim strSQL As String = "INSERT INTO fatture (Nome, Descrizione,Prezzo) Values ('" & _
                            x.SubItems(0).Text & "', '" & _
                            x.SubItems(1).Text & "','" & _
                            x.SubItems(2).Text & "')"
             CONNECTION.Open()
            cmd = New MySqlCommand(strSQL, CONNECTION)
            dr = cmd.ExecuteReader()
            dr.Close()
            cmd.Dispose()
            CONNECTION.Close()

Next