La operación debe usar una consulta actualizable

hola grupo:

al inserta un registro en una bd en access que contiene
una tabla llamada "tusuario" y contiene los campos login
y pass me envia el siguiente mensaje de error

Tipo de Error:
MicrosoftJET Database Engine (0x80004005)
La operación debe usar una consulta actualizable.

/alta.asp, line 23

la linea 22 y 23 tiene lo siguiente:

strQuery="INSERT INTO tUsuario (Login,Pass) VALUES('" &
Usuario & "', '" & Passw & "');"

Set objRS = objConn.Execute (strQuery)


les paso el codigo completo del archivo alta.asp, para
saber si esta bien o le falta algo

Salu2:-)

-

% @language=VBScript %
% Dim Usuario, Password, Correcto, objConn, objRS,
strQuery, strProvider

Usuario=Request.Form("Usuario")
Passw=Request.Form("Password")

Correcto=True
if Usuario="" then Correcto=False end if
if Passw="" then Correcto=False end if
if correcto=True then
strProvider
= "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=C:\Inetpub\wwwroot\bd1.mdb;"
Set objConn = Server.CreateObject
("ADODB.Connection")
Set objRS = Server.CreateObject
("ADODB.Recordset")
objConn.Open strProvider
strQuery="SELECT * FROM tUsuario Where Login= '" &
Usuario & "';"
Set objRS = objConn.Execute(strQuery)
if not objRS.EOF then
Response.Write("El nombre de usuario ya está
siendo utilizado.")
Response.Write("Por Favor, escoja otro.")
else
strQuery="INSERT INTO tUsuario (Login,Pass)
VALUES('" & Usuario & "', '" & Passw & "');"

Set objRS = objConn.Execute (strQuery)
Response.Write("Gracias por Registrarse, "&
Usuario)
end if
objRS.close
objConn.close
set objRS=nothing
set objConn=nothing
else
Response.Write("Datos Incorrectos")
end if
%