Actualizar datos. No da error pero no actualiza

[Laika]

Tengo este codigo para modificar 3 registros de una base de datos pero no se quedan grabados los nuevos datos y no me da error. Este es el código:

<%@ Language=VBScript %>

<%

Set Conn = Server.CreateObject ("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("prueba.mdb")

consulta = "SELECT * FROM tabla1 WHERE id= "&Request.QueryString("id")
rs.Open consulta,Conn,3,3

id=Request.Form("id")
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")

rs("id") = id
rs("nombre") = nombre
rs("apellidos") = apellidos

rs.Update

rs.Close
Conn.Close
%>

Saludos

Laika