ขอความกรุณาแก้ปัญหาเรื่องของการบันทึข้อมูลจาก Listview ลง Database ค่ะ

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        conn.Open()
        If lsvsale.Items.Count = 0 Then
            MessageBox.Show("ไม่ปรากฏรายการขายใด ๆ ให้บันทึกลงฐานข้อมูล", "การแจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            btnsave.Enabled = False
            Exit Sub
        End If
        If lsvsale.Items.Count <> 0 Then
            If MessageBox.Show("คุณต้องการบันทึกรายการขาย ใช่หรือไม่ ?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
                Dim i As Integer = 0
                Dim tmpstock As Integer = 0
                For i = 0 To lsvsale.Items.Count - 1

                    Dim sqlSale As String = "INSERT INTO tbdetailsales(salesid,proid,saledate,qtysales,totalprice) values('" & txtsaleid.Text & "','" & CStr(lsvsale.Items(i).SubItems(0).Text) & "','" & dtsales.Value & "','" & CSng(lsvsale.Items(i).SubItems(3).Text) & "','" & CSng(lsvsale.Items(i).SubItems(4).Text) & "')" 'ต้องตรงกับฐานข้อมูลทุกอย่าง
                    Dim command As OleDbCommand = New OleDbCommand(sqlSale, conn)

                    With command
                        .CommandType = CommandType.Text
                        .CommandText = sqlSale
                        .ExecuteNonQuery()
                    End With

                    '------ตารางสินค้า ตัดสินค้าคงคลัง------------------------------------------------------------
                    sqlSale = "SELECT proid,qty FROM tbproduct WHERE (proid='" & lsvsale.Items(i).SubItems(0).Text & "')"
                    da = New OleDbDataAdapter(sqlSale, conn)
                    da.Fill(ds, "tbproduct")
                    tmpstock = CInt(ds.Tables("tbproduct").Rows(0).Item("qty"))
                    ds.Tables("tbproduct").Clear()

                    sqlSale = "UPDATE tbproduct SET qty='" & tmpstock - CInt(lsvsale.Items(i).SubItems(3).Text) & "' WHERE (proid='" & lsvsale.Items(i).SubItems(0).Text & "')"

                    With command
                        .CommandType = CommandType.Text
                        .CommandText = sqlSale
                        .ExecuteNonQuery()
                    End With
                Next

                MessageBox.Show("บันทึกรายการขาย เรียบร้อยแล้ว !", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

                clear()
                lsvsale.Items.Clear()
            End If
        End If
        conn.Close()
    End Sub