Estoy creando un programa de punto de ventas y tengo problemas con esta formula me da siempre un error 381 ahora bien es lo mismo cuando programo el boton de editar productos sigue diciendome que hay un error 381

Private Sub Boton_Editar_Click()

Dim var As Integer

var = Me.Lista_Clientes.ListIndex

If valor = -1 Then

MsgBox "Se debe seleccionar un producto para editar", vbxclamation, "ADVERTENCIA"

Exit Sub

End If

Dim codigo As Integer

codigo = Me.Lista_Clientes.List(Me.Lista_Clientes.ListIndex, 0) Seguir leyendo... sobre Crear un formulario de Edicion de clientes