ขออนุญาตสอบถาม เรื่อง insert ขอมูลจาก listview to database ครับ VB.NET

Dim i As Integer
        For i = 0 To ListView1.Items.Count - 1
            sql = "insert into tb_ponewdetail (po_id,po_itemno,po_productpn,po_description,po_unit,po_qty,po_unitprice
,po_amount,po_date) values ('" & txt_autonumber.Text & "','" & ListView1.Items(i).SubItems(0).Text & "'
,'" & ListView1.Items(i).SubItems(1).Text & "','" & ListView1.Items(i).SubItems(2).Text & "'
,'" & ListView1.Items(i).SubItems(3).Text & "','" & ListView1.Items(i).SubItems(4).Text & "'
,'" & ListView1.Items(i).SubItems(5).Text & "','" & ListView1.Items(i).SubItems(6).Text & "'
,'" & txt_datenow.Text & "')"
        Next
        If cmd_excuteNonquery() = 0 Then
            error_message("ไม่สำเร็จ")
        Else
            ok_message("สำเร็จ")
        End If