Ayuda con script de sesion de usuarios

[j_fco]

Hola amigos, estoy tratando de hacer un sistema de reconocimiento de usuarios, pero me manda el siguiente error:

:::::::::::::::::
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/Admin/verificar.asp, line 36
:::::::::::::::::

Les pongo el codigo del script:

::::::::::::::::

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="2058" %>
<%
Dim usuario, password

If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "Administrador.htm"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

'Conectamos a nuestra BD.
'defino las variables a utilizar
Dim oConn, sDSNDir, RS
Dim db_name, db_username, db_userpassword
Dim db_server, dsn_name
'defino el nombre del dsn
dsn_name = "access_catalogo.dsn"
'defino la ruta de acceso para la bd
sDSNDir = Server.MapPath("../_dsn")
'declaro el objeto de coneccion en el servidor
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "filedsn=" & sDSNDir & "\" & dsn_name
oConn.Open

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.ActiveConnection = oConn
RS.Source = "SELECT * FROM Usuarios WHERE usuario = '"& usuario &"'"

RS.CursorType = 3
RS.CursorLocation = 3
RS.LockType = 1
'aqui marca el error
RS.Open ()

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>