Type mismatch

Salve galera.

Estou com um erro bobo, acho que de tanto olhar fiquei cedo, por isso peço a ajudar de vcs...

Estou criando um sistema para um consultório odontológico e o problema está na baixa de mensalidade, tem uma outra página com o mesmo erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'spu_BaixaPagamentoMensalidade'

/dev/consultorio/baixaMensalidade.asp, line 0

Abaixo o cod da página:

<!--#Include File = "dbConexao.inc" -->
<!--#Include File = "adovbs.inc" -->
<% Response.charset = "utf-8" %>
<%
Dim MensalidadeID, PacienteID, Valor, Multa, TipoPagamento, Tipo, Obs, Usuario, strSQL, vSQL, oRS

MensalidadeID = Request("txtCod")
PacienteID = Request("txtPacienteID")
Valor = Request("txtValor")
Multa = Request("txtMulta")
TipoPagamento = Request("txtTipoPagamento")
Tipo = Request("optMulta")
Obs = Request("txtObs")
Usuario = "Sistema" 'Session("Logado")

vSQL = "sps_ValidaBaixaMensalidade '" & PacienteID & "', '" & MensalidadeID & "'"
AbreConexao dbConn
Set oRS = dbConn.Execute(vSQL)
'Response.Write(vSQL)
'Response.end

If oRS.EOF Then '--1
If Tipo = "1" Then '--2
strSQL = "spu_BaixaPagamentoMensalidade '" & MensalidadeID & "', '" & PacienteID & "', '" & REPLACE(Valor,",",".") & "', '" & 0 & "', '" & TipoPagamento & "', '" & Obs & "', '" & Usuario & "', '" & 1 & "'"
'Response.Write(strSQL)
'Response.end
Execute(strSQL)
dbConn.Execute(strSQL)
Else
strSQL = "spu_BaixaPagamentoMensalidade '" & MensalidadeID & "', '" & PacienteID & "', '" & REPLACE(Valor,",",".") & "', '" & REPLACE(Multa,",",".") & "', '" & TipoPagamento & "', '" & Obs & "', '" & Usuario & "', '" & 2 & "'"
'Response.Write(strSQL)
'Response.end
'AbreConexao dbConn
Execute(strSQL)
dbConn.Execute(strSQL)
%>

 <script language="javascript">
 alert("Baixa realidade com sucesso!");
 //window.close();
 //location.href = "cadastraAgenda.asp";
 </script>
 <%
 End If '--2
 Else '--1
 %>
 <script language="javascript">
 alert("Paciente possui mensalidades anteriores em aberto! Por favor, verifique.");
 //window.close();
 //location.href = "baixaPagtoMensalidade.asp?<% 'CodID = PacienteID %>";
 </script>
 <%
 End If
 %>

E se eu pegar os dados que passo para a procedure e rodar direto no sql, ele executa sem problemas. Já agredeço a atenção...

Valeeu!!