Visual Basic - por fa codigo pa un buscador

hola por favor alguien me podria dar alguna orientada para poder hacer un codigo de un buscador no tengo cable principal quiero que entre un texto me busque una palabra si tengo una base de datos hecha en acces y ahi tengo ke buscar un texto o palabra...si alguien me pudiera ayudar por ke eso nunca lo habia hecho gracias....

Esencialmente seria algo asi

Cadena= "NomCampo Like '" & Text1.Text & "'"
' Podemos Buscar desde el principio
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Cadena
' O tambien Buscar desde el registro actual
Adodc1.Recordset.Find Cadena, 1

excelente su nota, pero mi pregunta es como hago para pasar como filtro dos argumento por el find

lo que he intentado es lo siguiente sin resultado alguno...

Adodc1.Recordset.Find "TIPO_MOVIMIENTO = 'DEVUELTO' AND COD_INVENTARIO = '" & cmbInventario & "'"

le agradecería una pronta respuesta

gracias...

El Buscador Para Encontrar Una Palabra Dentro De Un TextBox O un Texto Dentro De Una Variable
'Primero Hemos De Decirle Al Sistema Que No Distinga Mayusculas De Minusculas

Option Compare Text
Option Explicit
Dim MatrizElementosTexto, Index As Integer

'Segundo Crear Una Matriz De Las Palabras
Private Sub Form_Load()
MatrizElementosTexto = Split(Text1.Text, " ")
End Sub

Private Sub CmdBuscar_Click()
On Error GoTo BusquedaNoEncontrado
Dim Respuesta As String
Respuesta = InputBox("Que Palabra Del Texto Desea Buscar?")
If Respuesta = Empty Then
MsgBox "Ha De Escribir La Palabra Ha Buscar"
Exit Sub
End If
For Index = 0 To UBound(MatrizElementosTexto) Step 1
If MatrizElementosTexto(Index) Like Respuesta Then Exit For
Next Index
If MatrizElementosTexto(Index) Like Respuesta Then MsgBox "Encontrado"
MsgBox "Palabra Nº " & (Index + 1)
Exit Sub
BusquedaNoEncontrado:
MsgBox "No Encontrada Ninguna Palabra"
End Sub

Para Las Bases De Datos Acces Usaremos Otro Sistema

Buscar = InputBox("Que Nombre Desea Buscar ?")
If Buscar = Empty Then MsgBox "Introduce Un Valor En El Campo", vbCritical, "Error Buscar": Exit Sub
Criterio = "NombreCampo Like '*" & Buscar & "*'"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then MsgBox "No Encuentro El Nombre", vbCritical, "Error Buscar": Adodc1.Recordset.MoveFirst

codigo fuente