Depurar es código

[Elig]

Bueno... Otra pregunta:

Alguien me puede ayudar a depurar el siguiente código? es que no doy con el problema, llevo un día de locos:

El error que me da es el siguiente:

Error en Base de Datos: [Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.

Y el código es el siguiente:

<%
Dim titulo_grabar, test1, test2, test3, test4, test5, firma
titulo_grabar = Request.Form("titulo")
test1 = Request.Form("texto1")
test2 = Request.Form("texto2")
test3 = Request.Form("texto3")
test4 = Request.Form("texto4")
test5 = Request.Form("texto5")
firma = Request.Form("firma")


Dim Valores
Valores = "'" & Request.Form("titulo") & "','" & Request.Form("texto1") & "','" & Request.Form("texto2") & "','" & Request.Form("texto3") & "','" & Request.Form("texto4") & "','" & Request.Form("texto5") & "'"

%>
<%
On Error Resume Next
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "pp"

strSQL ="SELECT db_numero FROM noticias ORDER BY 1 DESC"
Set miConexion = Conexion.Execute(strSQL)
Dim Id
If Not miConexion.EOF Then
Id = miConexion("db_numero")
Id = Id + 1
Else
Id = 1
End If
Valores_1 = "'" & Id & "'," & Valores
strSQL = "INSERT INTO noticias VALUES(Valores_1)"
Set miConexion = Conexion.Execute(strSQL)
If Err.Description <> "" then
Response.Write "<B>Error en Base de Datos: " & Err.Description & "</B>"
Else
Response.Write("<P><FONT FACE=Verdana SIZE=2 COLOR=#FFFFDD><B>Se han actualizado los datos</B></FONT></P>")
End If


miConexion.Close
Conexion.Close
Set miConexion = Nothing
Set Conexion = Nothing
%>



El resultado del Id es correcto ( en este caso 4 pues tengo grabados 3 registros) y los Request.form he comprobado los valores y están bien. E problema, evidentemente está en:



Gracias por vuestra ayuda.