Like "*" & [FormName].[FieldName] & "*"

<%
	dim cn, rs, db, sql, srcStr
	set cn = server.createobject("adodb.connection")
	set rs = server.createobject("adodb.recordset")
	db = "driver={microsoft access driver (*.mdb)};" & _
	"dbq=" & server.mappath("PATH/DB_NAME.mdb") & ";"
	cn.open db
	srcStr = trim(request.form("s"))
		if srcStr = "" then
		%>
		<form method="post" action="this.asp">
		<input type="text" name="s">
		<input type="submit">
		</form>
	<%
		else
			sql = "select * from Names where full_name like '%" & srcStr & "%'"
			rs.open sql, cn
				if rs.eof then
					response.write "No results."
				else
					do while not rs.eof
					response.write rs("full_name") & "<br>"
					rs.movenext
					loop
				end if
			rs.close
		end if
%>