Hola, aqui hay algo de codigo
<%@ LANGUAGE="VBScript" %>
<%
´ Declaramos el objeto de conexión a la base de datos
Set ConexionBD = Server.CreateObject("ADOdb.Connection")
´ Abrimos el objeto con el driver específico
ConexionBD.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("miBDs.mdb")
buscar=request.form("campobusquedadelformulario")
Dim rs
set rs=server.createobject("ADODB.Recordset")
sqltxt="select * from tabla where campo like ´%"&buscar&"%´"
rs.open sqltxt, conexionBD %>
.....
.........
..........
luego verificas que no sea EOF
<% if not rs.EOF then %>
despliega tus campos....
......................
<%else
response.write "No se han encontrado datos"
end if%>
espero haberte ayudado