Cita:
Iniciado por ariesagv
ok, lo voy a probar como lo dices y luego te aviso que onda, una pregunta esta bien la logica de mi codigo?

Si como dices al principio:
"quiero hacer la consulta, cuando le ponga por ejemplo: incendio que me muestre el texto donde se encuentra dicha palabra"
entiendo que lo que quieres es que busque el primer registro que incluya la palabra en cualquier posición del campo, si así sólo tienes que hacer esto:
Código:
Private Sub CmdConsultas_Click()
Dim buscar As String
buscar = InputBox(" Ingrese la palabra que desea consultar.", "Palabra")
Data1.Recordset.FindFirst "[descripcion] LIKE '*" + buscar + "*'"
If Data1.Recordset.NoMatch Then
MsgBox "No hay mas archivos.", vbCritical, "FINAL DE LA CONSULTA"
CmdConsultas.Visible = False
Else
CmdConsultas.Visible = True
End If
End Sub
Supongo que "Data1" es un control DAO, si lo fuera de ADO sustituye los comodines (*) por %