Arama işleminin yapıldığı dosyada yeni bir recordset açarsın ve mdb de yeni bir tablo yaparsın,

<%
Kelimen=Trim(Request.Form("ney").item)

Set SorVarmi = baglantinesnen.Execute ("SELECT * FROM aramatablon WHERE aramakelimeler='"&Kelimen&"';")

If SorVarmi.EOF Then

baglantinesnen.Execute ("INSERT INTO aramatablon(aramakelimeler) VALUES ('"&Kelimen&"');")

End if
%>

Umarım işine yarar