coaching

ues esta esta mas a mi no me gudta casi usarlo 

Private Sub CmdBuscar_Click() 

Dim Buscado As String, Criterio As String 
Buscado = InputBox("Producto a Buscar", "Altas") 
If NotDataAltas.Recordset.EOF Then 

Criterio = "nombre_producto like'*" & Buscado & "*'" 

DataAltas.Recordset.MoveNext 
DataAltas.Recordset.FindFirst Criterio 
If DataAltas.Recordset.NoMatch Then DataAltas.Recordset.MoveLast 
MsgBox ("No encontre ese Producto") 
end if 
end sub 
============================ 
LA SEGUNDA 
por medio de SQL 
no me acuerdo muy bien 

Private SubCmdBuscar_Click() 
dim buscar as string 
buscar= text1.text 
data1.recordsource = "select * from nombre_Tabla where Nombre_Campo like '*" & buscar & "*'" 
Data1.Refresh 
end sub 


Hola!! Aquí te dejo unejemplo de busqueda usando un imputbox y adodc1 

Private Sub CommandBuscar_Click() 
Adodc1.Recordset.Requery 
'Igualamos la variable busqueda al inputbox 
Dim Busqueda As String 
Busqueda =InputBox("Ingrese el código a buscar", "Buscar") 
'Realizamos la busqueda usando el metodo find 
Adodc1.Recordset.Find "Código='" & Trim(Busqueda) & "'" 
'si no encuentra resultados que nos muestreen un msgbox 
If Adodc1.Recordset.EOF Then 
MsgBox "Código no existente", vbInformation, "Aviso" 
Exit Sub 
End If 
'y si encontrò resultados mostrar la descripciòn del producto en un textbox txtDescripción.Text = Adodc1.Recordset.Fields(1).Value 
End Sub 
'Suerte!

Private Sub BuscarButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBuscarButton.Click 

Dim resultado As ADODB.Recordset 
Dim codigo As String 

codigo = InputBox("Ingrese el Codigo del Producto") 
If codigo "" Then 

Consulta = "select *from producto where Id='" & codigo &"'" 
resultado = Conexion.Execute(Consulta) 

If resultado.BOF True Then 
resultado.MoveFirst() 
IdTextBox.Text = resultado.Fields(0).Value 
NombreTextBox.Text = resultado.Fields(1).Value ...