SoloCodigo

Ps si, ya me di cuenta que es dificil de esta manera como lo estoy planteando. tambien instente con maskedbox y tampoco me resulta :S voy a tener que hacer por separado que no lo queria xD..

Buen tarde comunidad, estoy realizando una aplicación y me tope con una piedrita :S, resuelta que tengo una control MSHFlexGrid para hacer una lista de articulos tipo factura con el siguiente codigo.

With rs_venta
        .AddNew
        .Fields(0) = Label11.Caption
        .Fields(1) = Label12.Caption
        .Fields(2) = Text1.Text
        .Fields(3) = Label13.Caption
        .Fields(4) = Option1.Value
        .Fields(5) = Option2.Value
        .Fields(6) = Option3.Value
        .Update
    End With
       
    With rs_detalleventa
        .AddNew
        .Fields(0) = Label11.Caption
        For s = 1 To ListView1.ListItems.count
        .Fields(1) = ListView1.ListItems(s).Text
        .Fields(2) = ListView1.ListItems(s).ListSubItems(1).Text
        .Fields(3) = ListView1.ListItems(s).ListSubItems(3).Text
        .Fields(4) = ListView1.ListItems(s).ListSubItems(2).Text
        .Update
         Next s
        '.Fields(5) = Label13.Caption
    End With

asi me guarda la primera linea del control, pero no realiza el recorrido para guardar las demas lineas de la factura, tengo una base de datos en access y quisiera que con este codigo me guardara la informacion de la siguiente manera.
ejemplo:
que venda 3 items diferente.
 
Nº de factura                         Items              Categoria                       Precio                   Cantidad[/b]
0000001                                items 1                varios                          2                           3
0000001                                items 2                varios                          4                             5
0000001                                items 3                varios                          4                       5 [/b]

Buenas comunidad, tengo un problema, estoy haciendo un programa tipo juego alzar y me esta generando un error y no se como solucionar eso, soy algo novato en esto del vb, apenas tengo 4 dias viendo clases y se me presento eso dejo el codigo y la parte donde se genera el error.

Option Explicit
Dim x, y As Integer

Private Sub cmdComenzar_Click()
    x = CInt(Rnd() * (9 - 1) + 1)
End Sub

Private Sub cmdComparar_Click()
    txty = y
    If x > y Then MsgBox " Intente de nuevo el numero es Mayor"
    If x < y Then MsgBox " Intente de nuevo el numero es Memor"
    else x = y Then MsgBox "Enhorabuena aceptaste vuelve a jugar"
   
 
End Sub

Private Sub cmdLimpiar_Click()
    txty = Empty
    txty.SetFocus
End Sub

Private Sub cmdSalir_Click()
    End
End Sub

Private Sub Form_Activate()
    Randomize
    cmdLimpiar.Enabled = False
    cmdComparar.Enabled = False
End Sub
Private Sub txty_Change()
    cmdLimpiar.Enabled = True
    cmdComparar.Enabled = True
End Sub

[/b]