Problema con INSERT INTO

Hola:

Tengo problema para insertar valores en una bd en Access

aqui les paso el codigo:

% @language=VBScript %
% Dim Usuario, Password, Correcto, objConn, objRS,
strQuery, strProvider
Usuario=Request.Form("Usuario")
Password=Request.Form("Password")
Correcto=True
if Usuario="" then Correcto=False end if
if Password="" then Correcto=False end if
if correcto=True then
strProvider
= "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=C:\Inetpub\wwwroot\db1.mdb;"
Set objConn = CreateObject("ADODB.Connection")
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

-aqui es en donde me manda el error

strQuery="INSERT INTO tUsuario (Login, Password)
VALUES ('" & Usuario & "', '" & Password & "');"
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


Le he buscado varias formas y no me funciona. Que estara
pasando