Private Sub cmdBuscar_Click()
   Dim Opcion As Integer
   Dim dato As String
   Dim Item As ListItem
  
   ' busca por las demás columnas ( por SubItem )
   If Option1.Value = True Then
      dato = txtSearch.Text
      Opcion = lvwSubItem ' busca por los subitems
   End If

   Next i
         ' Busca por la primer columna ( por item )
   If Option2.Value = True Then
      dato = txtSearch.Text
      Opcion = lvwText ' busca por el item
   End If
      
    ' si lo ingresado es una cadena vacia sale
    If dato = vbNullString Then
        Exit Sub
    End If
  
   ' Busca con el método FindItem, estableciendo la opcion de búsqueda
   Set Item = ListView1.FindItem(dato, Opcion, , lvwPartial)
     
   ' si el item es nothing no se encontró
   If Item Is Nothing Then
      MsgBox " No se encontró el dato", vbInformation
      Exit Sub
   Else
       ' .. si no , selecciona el elemento encontrado
       Item.EnsureVisible
       Item.Selected = True
       ListView1.SetFocus
   End If

               End Sub

Function ListIsIn(lst As ListBox, zString As String) As Boolean
    On Error Resume Next
    
    For i = 0 To lst.ListCount
        If InStr(UCase$(lst.List(i)), UCase$(zString)) Then ListIsIn = True: lst.ListIndex = i: GoTo grr
        i = i + 1
    Next i
    ListIsIn = False
grr:
End Function

Private Sub Command1_Click()
    Me.Caption = ListIsIn(List1, Text1.Text)
End Sub

Private Sub Form_Load()
    List1.AddItem "MÉXICO" & " Pepe "
    List1.AddItem "VENEZUELA" & "Jose"
    List1.AddItem "ARGENTINA"
    List1.AddItem "ESPAÑA"
    List1.AddItem "GUATEMALA"
    List1.AddItem "ARGENTINA"
    List1.AddItem "CHILE"
End Sub

Private Sub Text1_Change()
   Label1.Caption = ListIsIn(List1, Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)


If KeyAscii = 13 Then

End If

End Sub

Dim rs As adodb.Recordset
Dim sql As String
sql = "Select * from Fiar order by Apellido"
If Not Conectar() Then Exit Sub
Set rs = cn.Execute(sql)
List4.Clear
Do While Not rs.EOF
List4.AddItem Format(rs!FiadoNumero, "000") & vbTab & rs!Apellido & ", " & vbTab & rs!Nombre
rs.MoveNext
Loop
Set rs = Nothing
''Call cargardatosventas
''Call ordenar
Desconectar
'List1.ListIndex = 0

Private Sub cargafiado()

Dim opc As String
Dim cod As Integer
Dim sql As String
opc = List4.List(List4.ListIndex)
cod = Val(Left(opc, 3))
sql = "Select * from Fiar where FiadoNumero = " & cod
Dim rs As adodb.Recordset
If Not Conectar() Then Exit Sub
Set rs = cn.Execute(sql)
'' un registro para cada textbox como este:
txtccodigo = IIf(IsNull(rs!CodigoCliente), "(vacío)", rs!CodigoCliente)
Set rs = Nothing
Desconectar
end sub

If KeyAscii = 46 Then
KeyAscii = 44

Private Sub Command1_Click()
If Text1.Text = 0 Then
MsgBox "Stock 0 !!!!!"
Else
If Text1.Text > Text2.Text Then
MsgBox "Stock mayor"
Exit Sub
Else
MsgBox "Stock menor"
Exit Sub
End If
End If
End Sub

    Dim rs As ADODB.Recordset
        If Not Conectar() Then Exit Sub
        Set rs = New ADODB.Recordset
            rs.Open ("Elementos"), cn, adOpenKeyset, adLockOptimistic
            On Error Resume Next
            rs!Categoria = txtcate
            rs.Delete
            rs.Close
            rs.update
            Set rs = Nothing
            Desconectar