Visual Basic - Buscar en Bases de Datos

Hola estoy haciendo una aplicación conectada a una base de datos en access, para esto estoy usando ADO, pero no se como hacer para realizar busquedas, ó para lograr un efecto similar al de la función BuscarV de Excel Ej: Buscar un producto por código asi: Digito el código y en un label me muestre la descripción y valor.

Se que esto es bien básico pero hasta ahora estoy empezando en este maravilloso mundo de la programación.

Este es un ejemplo del código de como estoy adicionado y borrando registros actualmente:

Private Sub cmdAddItem_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub cmdCancel_Click()
Adodc1.Recordset.CancelUpdate
Adodc1.Refresh
End Sub

Private Sub cmdDelItem_Click()
Dim intRespuesta As Integer
intRespuesta = MsgBox("Are you sure", vbYesNo + vbQuestion, "Delete")
If intRespuesta = 6 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Move 0
End If
End Sub

COLOCA LO SIGUIENTE EN UN COMMAND BUTTON Y UN TEXTBOX INVISIBLE, FUNCIONA PARA UN DATA GRID Y UN LIST BOX, PERO PUEDES ASIGNAR EL RESULTADO DE LA BUSQUEDA EN UN TEXTBOX O UN CONTROL LABEL.

' txtBuscar Es un textbox, Donde Tecleas Lo Que Vas a Buscar, Se activa
'Cuando Das Click En El command Buton Buscar
'inicializa Puedes Quitarlo Yo Lo Hago Para inicializar.
'NumConc Es El Campo De Una tabla Access Que vas a Buscar

PRIVATE SUB cmdBuscar_CLICK()
txtbuscar.Visible = true
txtbuscar.setfocus
End If

Private Sub txtBuscar_KeyPress(KeyAscii As Integer)
Dim criterio As String
' Si Tecleas Enter Entonces Empieza La Busqueda
If KeyAscii = 13 Then
txtBuscar.Visible = False
Adodc1.Recordset.MoveFirst
' Valida Que Tecles Algo En El Textbox Porque sino EntoncesQue Busca
If txtBuscar.Text = "" Then
MsgBox "No Tecleo Quinela a Buscar"
inicializa
Else
criterio = "NumConc like " & txtBuscar.Text
Adodc1.Recordset.Find criterio
' Si Encuentra Fin De Archivo Entonces No Existe Lo Que Buscar
If Adodc1.Recordset.EOF Then
MsgBox "No Existe Quinela =>" & txtBuscar.Text
Adodc1.Recordset.MoveLast
inicializa
End if
End If
End If
End Sub

ESPERO QUE TE SIRVA, SALUDOS DESDE MONTERREY, MEXICO

Muchas Gracias por su valiosa colaboración

Néstor. utilizá la propiedad filter del recordset. Por ejemplo:
Adodc1.Recodset.Filter="tblClientes.Apellido LIKE '" & "pe*'"

'A la propiedad se le pasa lo que de coloca en la clausula Where de una 'consulta. Las comillas simples indican que el campo apellido es de tipo 'texto y * que busque cualquier cosa que comiense por "pe"

'Si encuentra un registro se posiiona en él, caso contrario en EOF (o Bof, ahora no recuerdo)
if Adodc1.Recodset.Eof or Adodc1.Recodset.BOF then
msgbox "Registro no encontrado"
Else
msgbox "Registro encontrado"
end if

Saludos Ruri

Muchas Gracias por su valiosa colaboración