ASP - Fallo al insertar en un recordset

Hola, la pagina que me deberia insertar un registro en una BD en Access me da error. La conexión funciona bien ya que lo he comprobado. El código es este:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(MM_conex_STRING)

set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.Source = "select * from respuestas"
rs.ActiveConnection = Conn
rs.open

rs.addnew
rs("numero")=numero
rs("autor")=nombre
rs("fecha")=now()
rs("respuesta")=respuesta
rs.update
rs.close
donde="vr.asp?numero="&numero&"&nforo="&nforo
response.redirect donde

Espero que alguien me pueda decir el fallo
Muchas gracias...

bykthor

Hola bykthor:
No se por que tenes que hacer un select y abrir un rs cuando tu intencion es insertar un registro en la base de datos.
Por que no haces directamente un insert y si luego quieres recuperar los registros haces un select ?
Te paso este codigo a ver si nos entendemos.

set cn = server.CreateObject("ADODB.Connection")
set cmd = server.CreateObject("ADODB.Command")

cn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\visillac\db\DataBase.mdb"))

Set cmd.ActiveConnection = cn
Sql = "INSERT INTO Comentarios (Nombres, Apellidos, Email) VALUES ('" & MisNombres & "', '" & MisApellidos & "', '" & MiEmail & "')"

cmd.CommandText = Sql
cmd.Execute
txtMensaje = "Su Comentario fue procesado correctamente"