Dim n As Integer
For n = 1 to 15
    If Not IsEmpty(frmFacturacion.ms.TextMatrix(n, 10)) Then
        rsDatos.AddNew
        rsDatos.Fields("NumFactura") = frmNumeroFactura.Text1
        rsDatos.Fields("FechaFactura") = frmFacturacion.Label4
        rsDatos.Fields("Rut") = frmFacturacion.Text2
        rsDatos.Fields("Vendedor") = frmFacturacion.dtcVend
        rsDatos.Fields("OrdenCompra") = frmFacturacion.Text1
        rsDatos.Fields("Codigo") = frmFacturacion.ms.TextMatrix(n, 10)
        rsDatos.Fields("Cantidad") = frmFacturacion.ms.TextMatrix(n, 0)
        rsDatos.Fields("Precio") = frmFacturacion.ms.TextMatrix(n, 5)
        rsDatos.Fields("Neto") = frmFacturacion.ms.TextMatrix(n, 6)
        rsDatos.Fields("Iva") = frmFacturacion.ms.TextMatrix(n, 7)
        rsDatos.Fields("Retencion") = frmFacturacion.ms.TextMatrix(n, 8)
        rsDatos.Fields("Ila") = frmFacturacion.ms.TextMatrix(n, 9)
        rsDatos.Fields("Total") = (Val(frmFacturacion.ms.TextMatrix(1, 6)) + _
            Val(frmFacturacion.ms.TextMatrix(n, 7)) + _
            Val(frmFacturacion.ms.TextMatrix(n, 8)) + _
            Val(frmFacturacion.ms.TextMatrix(n, 9)))
        rsDatos.Fields("CondVenta") = frmFacturacion.DataCombo1
        rsDatos.Fields("ListaPrecio") = frmFacturacion.DataCombo2
        rsDatos.Fields("Destino") = frmFacturacion.Label19
        rsDatos.Fields("Observaciones") = frmFacturacion.Label20
        rsDatos.Fields("Usuario") = frmFacturacion.Label21
        rsDatos.Update
    End If
Next n