Visual Basic - For e Insert Into no funciona

Hola que tal de verdad ojala me puedan ayudar estoy deseperado con esto, me detiene todo mi proyecto estoy haciendo una insercion de datos a una tabla de acces con DAO pero lo estoy haciendo mediante un ciclo for por el numero de lineas que encuentre en un list view asi que segun el codigo va desde 1 hsta el numero maximo de lineas que encuentre en el list view... les dejo el codigo:

El problema es que NO hace el insert into solo inserta la primer linea y las demas ya no.. es decir si el for va de 1 a 10 deberia insertar 10 lineas segun los valores de la variables , pero no lo hace solo inserta la primer linea y nada mas... ya le puse una pausa y nada... revice que la base de datos permite duplicar valores esta bien... ya le revise con un msgbox que las variables si cambien de valor y el valor es bien asignado con el contador... ya me vuelvo loco Alguien me puede ayudar? Gracias de Antemano!

For i = 1 To Val(ListView1.ListItems.Count)


Z = Z + 1


SerieNota = ElabNotas.Text4.Text
NumeroNota = Val(ElabNotas.Text3.Text)
YNota = Val(ListView1.ListItems(Z))
FamiliaClave = ListView1.ListItems(Z).SubItems(9)
PrendaClave = ListView1.ListItems(Z).SubItems(10)
PrecioRealNota = Val(ListView1.ListItems(Z))
PrecioNota = Val(ListView1.ListItems(Z).SubItems(7))
ColorClave = ListView1.ListItems(Z).SubItems(12)
DefNota = Val(ListView1.ListItems(Z).SubItems(5))
CantidadNota = Val(ListView1.ListItems(Z))
ImporteNota = Val(ListView1.ListItems(Z).SubItems(7))
EstampadoClave = Val(ListView1.ListItems(Z).SubItems(13))
ProcesoClave = ListView1.ListItems(Z).SubItems(11)
PrecioNotaOriginal = Val(ListView1.ListItems(Z).SubItems(7))
PrendasPorPieza = Val(ListView1.ListItems(Z).SubItems(8))


SQLInsertaDatos1 = "Insert Into NOTA1 (NotSer, NotNro, NotY, " & _
" FamCve, PrenCve, " & _
" NotRealPrec, NotPrec, ColCve, " & _
" NotDef, NotCan, NotImp, " & _
" EstCve, ProCve, " & _
" NotPrecOri, PrenPorPza)" & _
" VALUES ('" & SerieNota & " ', " & NumeroNota & ", " & YNota & " ," & _
" '" & FamiliaClave & "' , '" & PrendaClave & "' , " & _
" " & PrecioRealNota & ", " & PrecioNota & ", '" & ColorClave & "', " & _
" '" & DefNota & "', " & CantidadNota & ", " & ImporteNota & ", " & _
" " & EstampadoClave & " , ' " & ProcesoClave & " ', " & _
" " & PrecioNotaOriginal & ", " & PrendasPorPieza & " )"

MsgBox SQLInsertaDatos1

ControlData.Execute (SQLInsertaDatos1)

' ControlData.Execute ("Insert Into NOTA1 (NotSer, NotNro, NotY, " & _
' " FamCve, PrenCve, " & _
' " NotRealPrec, NotPrec, ColCve, " & _
' " NotDef, NotCan, NotImp, " & _
' " EstCve, ProCve, " & _
' " NotPrecOri, PrenPorPza)" & _
' " VALUES ('" & SerieNota & " ', " & NumeroNota & ", " & YNota & " ," & _
' " '" & FamiliaClave & "' , '" & PrendaClave & "' , " & _
' " " & PrecioRealNota & ", " & PrecioNota & ", '" & ColorClave & "', " & _
' " '" & DefNota & "', " & CantidadNota & ", " & ImporteNota & ", " & _
' " " & EstampadoClave & " , ' " & ProcesoClave & " ', " & _
' " " & PrecioNotaOriginal & ", " & PrendasPorPieza & " )")

Next i