How do I put the items I picked in listview and the value inside the textbox to my database?

See more:

VB

SQL

I'm trying to put the name which is in the textbox, product and price from listview1 to database and it will show in listview2. It works but there's a message saying "Incorrect syntax near '100'. the datatypes of my productorder is: name (varchar), product (varchar), and price(int).

What I have tried:

Imports System.Data.SqlClient
Imports System.IO

Public Class Form1
Dim con As SqlConnection = New SqlConnection("server=.\SQL;database=try;Trusted_Connection=TRUE")
Dim cmd As SqlCommand
Dim cmd2 As SqlCommand
Dim rdr As SqlDataReader

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.Open()
con.Close()
list()

list2()
End Sub
Sub list()
con.Open()


cmd = New SqlCommand("SELECT * FROM ProductTable", con)
rdr = cmd.ExecuteReader
ListView1.Items.Clear()
If rdr.HasRows Then
Do While rdr.Read()
Dim arr As String() = New String(2) {}
Dim itm As ListViewItem

arr(0) = rdr("productID")
arr(1) = rdr("product")
arr(2) = rdr("price")

itm = New ListViewItem(arr)
ListView1.Items.Add(itm)


Loop

End If

con.Close()
End Sub


Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click

modifyrecord("Insert into ProductOrder([name],[product],[price]) values ('" & txtname.Text & "','" & ListView1.SelectedItems(0).SubItems(1).Text & "'," & ListView1.SelectedItems(0).SubItems(2).Text & "")



End Sub
Private Sub listView1_MouseClick_1(ByVal sender As Object, ByVal e As MouseEventArgs)

End Sub

Sub list2()
con.Open()


cmd2 = New SqlCommand("SELECT * FROM ProductOrder", con)
rdr = cmd2.ExecuteReader
ListView2.Items.Clear()
If rdr.HasRows Then
Do While rdr.Read()
Dim arr As String() = New String(3) {}
Dim itm As ListViewItem

arr(0) = rdr("id")
arr(1) = rdr("name")
arr(2) = rdr("product")
arr(3) = rdr("price")

itm = New ListViewItem(arr)
ListView2.Items.Add(itm)


Loop

End If

con.Close()
End Sub
Sub modifyrecord(ByVal sql)

If txtname.Text = "" Or ListView1.SelectedItems(0).SubItems(1).Text = "" Or IsNumeric(ListView1.SelectedItems(0).SubItems(2).Text) = False Then


Else
con.Open()
cmd = New SqlCommand(sql, con)
cmd.ExecuteNonQuery()
con.Close()
list()

End If

End Sub
End Class