Aqui la solución a al problema. Despues de tantos intentos lo he logrado. De todos modos gracias por el aporte. Realmente esto es lo que necesitaba, guardar o muestrar en el ListView los datos que estan en textos y label. Simplemente eso, al mismo tiempo guardo en la base de datos con un procedimiento.
Private Sub agregar_venta()
Dim iCol As Long
Dim iItem As Long
With lv
iItem = lv.ListItems.Count + 1
.ListItems.Add , , lbCodigo
.ListItems(iItem).SubItems(1) = lbNombre.Caption
.ListItems(iItem).SubItems(2) = lbTelefono.Caption
.ListItems(iItem).SubItems(3) = lbDireccion.Caption
.ListItems(iItem).SubItems(4) = lbDescripcion
.ListItems(iItem).SubItems(5) = txtCantidad
.ListItems(iItem).SubItems(6) = lbPrecio
.ListItems(iItem).SubItems(7) = txtDescuento
.ListItems(iItem).SubItems(8) = lbIva.Caption
.ListItems(iItem).SubItems(9) = lbFecha
.ListItems(iItem).SubItems(10) = lbSub
.ListItems(iItem).SubItems(11) = lbTotal
.ListItems(iItem).Tag = Format(CLng(lbCodigo.Caption), "00#") & ";" & _
(lbNombre.Caption) & ";" & _
(lbTelefono) & ";" & _
(lbDireccion) & ";" & _
(lbDescripcion) & ";" & _
(txtCantidad) & ";" & _
(lbPrecio) & ";" & _
(txtDescuento) & ";" & _
(lbIva) & ";" & _
(lbFecha) & ";" & _
(lbSub) & ";" & _
(lbTotal)
End With
End Sub