actualizar registro

[sruedat]

Bueno, quiero recoger de un formulario los datos viejos de un usuario y otros nuevos que quiera cambiar (concretamente el nombre y el password), para ello tengo este código que realicé con vuestra ayuda (gracias):
<%@LANGUAGE="VBSCRIPT"%>
<%

Dim ElMote
ElMote = Request.Form("Mote")
Dim ElPassword
ElPassword = Request.Form("Password")
Dim ElNuevoMote
ElNuevoMote = Request.Form ("NuevoMote")
Dim NuevoPassword
ElNuevoPassword = Request.Form ("NuevoPassword")

%>
<%
set MiBase = Server.CreateObject("ADODB.Recordset")
MiBase.ActiveConnection ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&SERVER.MapPath("\base .mdb")
MiBase.Source = "SELECT * FROM Socios WHERE Mote = '" + Replace(ElMote, "'", "''") + "' AND Password = '" + Replace(ElPassword, "'", "''") + "'"
MiBase.CursorType = 0
MiBase.CursorLocation = 2
MiBase.LockType = 3
MiBase.Open
%>
<%
If Not MiBase.EOF Then
SQL = "Update Socios set Mote = '" & ElNuevoMote & "', Password = '" & ElNuevoPassword & "' where Mote = '" & ElMote & "' AND Password ='" & ElPassword &"'"
Response.Write "RespuestaASP=Socio"
else
Response.Write "RespuestaASP=NoSocio"
End If
MiBase.Close()
%>
Creo que la parte que me he inventado yo está mal porque no actualiza el registro, no da ningún error pero no lo actualiza lo deja como estaba, q puedo hacer?
Gracias