Ayuda para grabar datos.

Hola amigos

Cualquier ayuda es bienvenida, espero haber posteado bien,Tengo un listview
que se llena desde una aplicacion en VB Net 2002 y en determinado momento
necesito grabar los items contenidos, al recorrer el listview, me agrega (n)
registros como items tenga, pero con la informacion de la primera fila, osea
los mismo datos de la primera fila,se repiten en todos los registros
añadidos, anexo el codigo usado. Que estoy haciendo mal?, Que me falta?,
Alguien que me oriente, 1000 gracias.

Dim z As Integer
Conn.Open()
Mycom.Connection = Conn

For z = 0 To ListView1.Items.Count - 1
Mycom.CommandText = "INSERT INTO tabla(campo1, campo2,campo3)
VALUES(?A,?B,?C)"
Mycom.Parameters.Add("?A",ListView1.Items(z).SubItems(0).Text )
Mycom.Parameters.Add("?B",ListView1.Items(z).SubItems(1).Text)
Mycom.Parameters.Add("?D",ListView1.Items(z).SubItems(2).Text)
Try
Mycom.ExecuteNonQuery()
Catch myerror As MySqlException
MsgBox("Produce Error : " & myerror.Message)
Conn.Close()
End Try
Next
Conn.Close()