error con vbscript

Genera el error:
Tipo de error:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another.
/amigos8/check_new.asp, line 37

El codigo completo es:

Function SafeSQL( _
ByVal strToRenderSafe _
)

SafeSQL = Replace(strToRenderSafe, "'", "''")

End Function
id=request.form("login")
id=SafeSQL(id)
password=request.form("password")
password=SafeSQL(password)
last_id=request.form("last_login")
last_id=SafeSQL(last_id)

dim cadena //ERROR EN EL UPDATE ******************************LINEA 37 LA
SIGUIENTE
cadena="Update Files SET ([Login],[Password])=(''" & id & "'',''" &
password & "'') where [Login]=''" & last_id & "''"
Response.Write(cadena)
rs.Open cadena2, connStr, 3, 4 %>