Código para el botón de búsqueda.

 Daré algunos códigos para algunas funciones básicas en Visual Basic 6.0

 BOTÓN DE BUSCAR

El botón de buscar se verá y funcionará de la siguiente manera:
Crearás un botón  y en este tendrás vinculada una base de datos:
Pegarás esto en el botón:

Private Sub buscar_Click()
Dim buscar As String, criterio As String
buscar = InputBox("¿Que Accesorio desea buscar?", "busqueda por nombre", vbQuestion)
If buscar = "" Then Exit Sub
criterio = "Accesorio like '*" & buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
respuesta = MsgBox("Accesorio no encontrado", vbCritical)
End If
End If
End Sub

Derechos Reservados. :3 Kushina-san