i did so
Dim con As New MySqlConnection
Dim cmd As New MySqlCommand
Try
con.ConnectionString = "Server=mysql.x;User ID=x;Password=xDatabase=x;"
con.Open()
cmd.Connection = con
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(0) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(1) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(2) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(3) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(4) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(5) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(6) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(7) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(8) & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "insert into ycomm (IDvid,user,comm) values('" & lvDisplay.Items(0).SubItems(0).Text & "','" & ListView2.Items(0).SubItems(0).Text & "','" & ListBox1.Items(9) & "')"
cmd.ExecuteNonQuery()
Catch ex As Exception
Finally
con.Close()
End Try
Call showData()