[Resolvido] Busca em banco de dados

Galera, não estou conseguindo fazer funcionar a busca no meu site, está apresentando erro:

ADODB.Command error '800a0d5d'

Application uses a value of the wrong type for the current operation.

/busca.asp, line 19

Segue a linha 19 do código (em italico), e mais embaixo outros códigos. Se alguém puder me ajudar, agradeço muito! A idéia é buscar pelo termo específico dentro dos campos "titulo", "autor" ou "sinopse".

Set recBuscaLivros_cmd = Server.CreateObject ("ADODB.Command")
recBuscaLivros_cmd.ActiveConnection = MM_conAguilar_STRING
recBuscaLivros_cmd.CommandText = "SELECT * FROM livro WHERE sinopse LIKE ? OR titulo LIKE '%MMColParam%' ORDER BY titulo ASC"
recBuscaLivros_cmd.Prepared = true
[i]recBuscaLivros_cmd.Parameters.Append recBuscaLivros_cmd.CreateParameter("param1", 5, 1, -1, "%" + recBuscaLivros__MMColParam + "%") '[/i] adDouble

Código do box de busca

<input name="txtBusca0" type="text" id="txtBusca3" size="15" maxlength="50" />
 <input name="ok0" type="submit" id="ok0" value="ok" />

Código do Recordset

<%
Dim recBuscaLivros__MMColParam
recBuscaLivros__MMColParam = "1"
If (Request.Form("txtBusca") <> "") Then
recBuscaLivros__MMColParam = Request.Form("txtBusca")
End If
%>
<%
Dim recBuscaLivros
Dim recBuscaLivros_cmd
Dim recBuscaLivros_numRows

Set recBuscaLivros_cmd = Server.CreateObject ("ADODB.Command")
recBuscaLivros_cmd.ActiveConnection = MM_conAguilar_STRING
recBuscaLivros_cmd.CommandText = "SELECT * FROM livro WHERE sinopse LIKE ? OR titulo LIKE '%MMColParam%' ORDER BY titulo ASC"
recBuscaLivros_cmd.Prepared = true
recBuscaLivros_cmd.Parameters.Append recBuscaLivros_cmd.CreateParameter("param1", 5, 1, -1, "%" + recBuscaLivros__MMColParam + "%") ' adDouble

Set recBuscaLivros = recBuscaLivros_cmd.Execute
recBuscaLivros_numRows = 0
%>

Código para exibir o nome do livro encontrado, que deveria ser clicável e ir para o livro escolhido.

<%
While ((Repeat1__numRows <> 0) AND (NOT recBuscaLivros.EOF))
%>

 <tr>
 <td width="10%" valign="top"><span class="data"><span class="textos"><a href="livro_detalhes.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "idCodLivro=" & recBuscaLivros.Fields.Item("codLivro").Value %>"><font color="#000000"><%=(recBuscaLivros.Fields.Item("titulo").Value)%></font></a></span></td>
 <td colspan="2" class="textos"></td>
 </tr>
 <tr>
 <td colspan="2" valign="top"> </td>
 </tr>
 <%
 Repeat1__index=Repeat1__index+1
 Repeat1__numRows=Repeat1__numRows-1
 recBuscaLivros.MoveNext()

Wend
%>