[Resolvido] Recordset não pega os campos desejados

Esse código abaixo é o recorset que deveria pegar todos os livros de um determinado autor, seja ele o autor, o autor2, o autor3, o autor4 ou o ator5. Mas não importa o que eu faça, ele só pega o autor localizado no campo "autor", nos outros não pega.

No banco de dados, em ACCESS, tem um tabela "autor", onde estão todos listados, e uma tabela "Livros", onde há espaço para o autor, o autor2, o autor3, o autor4 e o autor5, todos puxados da tabela "AUTOR", mas via texto mesmo, não é via codAutor.

Alguém sabe como resolver??

<%
Dim recLivro_Autor__MMColParam
recLivro_Autor__MMColParam = "1"
If (Request.QueryString("idAutor") <> "") Then
recLivro_Autor__MMColParam = Request.QueryString("idAutor")
End If
%>
<%
Dim recLivro_Autor
Dim recLivro_Autor_cmd
Dim recLivro_Autor_numRows

Set recLivro_Autor_cmd = Server.CreateObject ("ADODB.Command")
recLivro_Autor_cmd.ActiveConnection = MM_conAguilar_STRING
recLivro_Autor_cmd.CommandText = "SELECT * FROM livro WHERE autor=? OR autor2='%MMColParam%' OR autor3='%MMColParam%' OR autor4='%MMColParam%' OR autor5='%MMColParam%' ORDER BY livro.titulo DESC"
recLivro_Autor_cmd.Prepared = true
recLivro_Autor_cmd.Parameters.Append recLivro_Autor_cmd.CreateParameter("param1", 200, 1, 255, recLivro_Autor__MMColParam) ' adVarChar

Set recLivro_Autor = recLivro_Autor_cmd.Execute
recLivro_Autor_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
recLivro_Autor_numRows = recLivro_Autor_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>