aggiungi un campo per il tipo di documento o fai un controllo sull'estensione con uno split magari

puoi aggiugere un campo oltre ai tuoi :
id
parole (parole contenute nel documento)
titolo (titolo documento)
documento (nome file.doc oppure .pdf)

formato (doc oppure pdf)

e poi fare la ricerca mirata suun tipo di documento facendo una SELECT WHERE formato='doc' per esempio.

oppure puoi fare la ricerca come fai adesso e poi controlli l'estensione dei file facendo uno split

estensione=split(nome_recordset("documento"),".",1)

if estensione(1)="doc" THEN
-------------codice da svolgere------------
END IF

di seguito il codice della pagina dove dovrebbe visualizzare i documenti trovati:
<%
Dim DataConn, cmdDC, rsDC
Dim Item
Dim iFieldCount, iLoopVar
Dim strLTorGT, iCriteria, strSortBy, strOrder

' Create and establish data connection
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = 15
DataConn.CommandTimeout = 30

'Access connection code
'DataConn.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"
DataConn.Open "DBQ=" & Server.MapPath("/mdb/dati.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
'DataConn.Open "DBQ=" & Server.MapPath("/mdb/dati.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
'Our SQL Server code - use above line to use sample on your server
'DataConn.Open Application("SQLConnString"), Application("SQLUsername"), Application("SQLPassword")

' PARAMETRI
parole= request.querystring("parole")

' Create and link command object to data connection then set attributes and SQL query
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConn
cmdDC.CommandText = "SELECT * FROM [PAROLE] WHERE ID > 0"
if len(parole)>1 then
cmddc.Commandtext= cmddc.Commandtext & " AND parole LIKE '%" & parole & "%'"
End If
cmdDC.CommandType = 1
'response.write cmddc.commandtext
' Create recordset and retrieve values using command object
Set rsDC = Server.CreateObject("ADODB.Recordset")
' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1)
rsDC.Open cmdDC, , 0, 1
Do While Not rsDC.EOF %>
<table width="443" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="243" height="13" bgcolor="#B1D8D8" valign="top" class="txt7b_nero">
 <a href="/documenti/<%=rsdc.fields("documento") %>" class="L7b_blu-nero"><%= rsdc.fields("titolo") %></a></td>
<td width="200" height="13" bgcolor="#B1D8D8" align="right" valign="middle" class="txt7b_nero">
<%= rsDC.Fields("img") %> </td>
</tr>
<tr>
<td colspan="2" height="6"><img src="../items_all/1pix.gif" width="1" height="1"></td>
</tr>
</table>
<%
rsdc.movenext
loop

' Close Data Access Objects and free DB variables
rsDC.Close
Set rsDC = Nothing
' can't do a "cmdDC.Close" !
Set cmdDC = Nothing
DataConn.Close
Set DataConn = Nothing

%>

dov'è l'errore?