Visual Basic - como puedo guardar mas de 2 datos desde un listview a una base de datos

Private Sub salvar_Click()

Dim itmx As ListItem

enc.Recordset.AddNew

enc.Recordset("nfact") = nfact

enc.Recordset("fecha") = Format(fecha, "DD/MM/YYYY")

enc.Recordset("nfc") = nfc

enc.Recordset("cd") = cd + cdd

enc.Recordset("ncliente") = ncliente

enc.Recordset("nombre") = nombre + apellido

enc.Recordset("hora") = Format(hora, "HH:MM:SS AMPM")

enc.Recordset("cedula") = cedula

enc.Recordset("telefono") = telefono

enc.Recordset("rnc") = rnc

enc.Recordset("empresa") = empresa

enc.Recordset("vendedor") = vendedor

enc.Recordset.Update

enc.Refresh

For i = 1 To list.ListItems.Count

Set itmx = list.ListItems(i)

det.Recordset.AddNew

det.Recordset("narticulo") = itmx.Text

det.Recordset("nfact") = nfact

det.Recordset("cantidad") = itmx.SubItems(2)

det.Recordset("precio") = itmx.SubItems(3)

det.Recordset("subtotal") = itmx.SubItems(4)

det.Recordset("aitbis") = itmx.SubItems(5)

det.Recordset("descripcion") = itmx.SubItems(1)

det.Recordset("fecha") = Format(fecha, "DD/MM/YYYY")

det.Recordset("nfc") = nfc

det.Recordset("cd") = cd + cdd

det.Recordset("ncliente") = ncliente

det.Recordset("nombre") = nombre + apellido

det.Recordset("hora") = Format(hora, "HH:MM:SS AMPM")

det.Recordset("cedula") = cedula

det.Recordset("telefono") = telefono

det.Recordset("rnc") = rnc

det.Recordset("empresa") = empresa

det.Recordset("vendedor") = vendedor

det.Recordset("totalpa") = totalpa

det.Recordset("efectivo") = efectivo

det.Recordset("devuelta") = devuelta

det.Recordset("totalitbis") = totalitbis

det.Recordset("pago") = pago

det.Recordset.Update

det.Refresh

Next i

 cancelar_Click

 fecha = Format(Date, "DD/MM/YYYY")

secuencia.Refresh

secuencia.Recordset.FindFirst "codigo='" & "1" & "'"

If secuencia.Recordset.NoMatch = False Then

nfact = Val(secuencia.Recordset("secuencia")) + 1

secuencia.Refresh

End If

End Subo