ASP - Problemas para actualizar

Hola Nuevamente, ahora me comunico pq tengo problemas para crear una actualizacion a la base de datos ya probe de mil maneras pero nada, les adjunto el codigo, talves mepueden dar un mano, gracias desde ya
---------------------------------------
Archivo de Conexion
---------------------------------------
<%
set base = CreateObject("ADODB.Connection")
base.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
& Server.MapPath("bdhotel.mdb")&";"
%>
--------------------------------------
Archivo de Busqueda
--------------------------------------
<!-- #include file="conexion.asp"-->
<%
vBusqueda = Request("txtbusqueda")
if vBusqueda = "" then
response.write "<center><b><font color=#ff0000> Ingrese un nombre o apellido</font></b></center>"
response.write "<center><b><font color=#ff0000> Sino sabes que teclear, escribe Avendaño</font></b></center>"
end if
%>
<table align = "center">
<tr>
<td>
<form method="Post" action="otro.asp">
<input id="txtbusqueda" name="txtbusqueda" size"20" value=<%=vBusqueda%>>
<input type="submit" value="Realizar Busqueda" name="Accion">
</td>
<td>
<form method="Post" action="unido.asp" id=form2 name=form2>
<input type="submit" value="Cancelar" id=submit1 name=submit1>
</form>
</td>
</tr>
</table>
<%
if VBusqueda <> "" then
selec = " Select * from Clientes WHERE (usuario like '%"&vBusqueda&"%')"
set rs = base.Execute(selec)
if rs.EOF then
response.write "<center><br><h2> Por el momento no hay registros</h2></center>"
else
%>

<table border=1 align="center">
<tr> <td> Codigo de Cliente </td>
<td><input type="text" name="usuario"value="<%=rs("usuario")%>"> </td> </tr><tr>
<td> Nombres:</td>
<td> <input type="text" name="nombre"value="<%=rs("nombre")%>"> </td></tr><tr>
<td> Apellidos: </td>
<td> <input type="text" name="apellidos"value="<%=rs("apellido")%>"></td></tr><tr>
<td> Dirección:</td>
<td> <input type="text" name="direccion"value="<%=rs("direc")%>"></td></tr><tr>
<td> Sexo: </td>
<td> <input type="text" name="sexo"value="<%=rs("sexo")%>"> </td></tr><tr>
<td> Correo Electrónico: </td>
<td> <input type="text" name="email"value="<%=rs("email")%>"> </td></tr><tr>
<td> Telefono de Contacto: </td> <td>
<input type="text" name="telefono"value="<%=rs("telefono")%>" > </td></tr><tr>
<td> <form method="post" action="otromod.asp"> <input type="submit" value="Guardar"> </form></td>
</tr>

<%end if%>

<%end if%>
---------------------------------------
Archivo de sql
---------------------------------------
<%
set meter = Server.CreateObject("ADODB.Command")
meter.ActiveConnection = base
meter.CommandText = "SELECT * from Clientes where usuario="&request("usuario")
meter.CommandType = 1
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open meter, , 1, 2,3,4,5,6
rs("nombre") = Request("nombre")
rs("apellido") = Request("apellidos")
rs("direc") = Request("direccion")
rs("sexo") = Request("sexo")
rs("email") = Request("email")
rs("telefono") = Request("telefono")
RS.Update
%>
*----------------------------------------------------------------------------------------------------------------------*
Gracias
La base de datos esta en:
http://g.1asphost.com/am103704/bdhotel.mdb