Gracias por responder pronto y hacerme entender para que sirve el open recordset y perdonen por no dejarme entender
Sabes ise lo que me mensionas pero no logra sumar lo ise asi
Cita: Private Sub Command2_Click()
Dim suma As Double
For i = 0 To List1ListCount - 1
suma = suma + Val(List1.List(List1.ListIndex))
Next i
Label1.Caption = Format(suma, "#,##0.00")
Label4.Caption = Format(suma * 0.13, "#,##0.00")
End Sub
lo modifique porque era el list1 el que debemos sumar ay se encuentra el precio
Que hago mal q no logro que funcione
