Ayuda Con Codigo Error

[hugorei]

eSTE CODIGO ME DA ERROR POCOS PARAMETROS SE ESPERABA UNO ERROR EN LA LINEA 20 , ES UN DIRECTORIO CON SUBDIRECTORIOS POR QUE ME PUEDE ESTAR DANDO ESTE ERROR ????? GRACIAS


%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Session("Admin") = False or IsNull (Session("Admin")) = True then
Response.Redirect("login.asp")
end if
%>
<%
Dim Conn ' Open Database Connection
Dim RS ' Open Record Set
Dim SQL ' SQL statement
Dim DSN ' DSN Less Connection

DSN = "DBQ=" & Server.Mappath("category.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN
if Request.Form("Add") = "Add" Then
SQLValid = "SELECT sucatName from subcategory "
set RSValid=server.createobject("ADODB.Recordset")
RSValid.open SQLValid,Conn,3,1 LINEA 20 QUE ME DA EL ERROR
if Request.Form("subcatName") = "" Then
Response.Redirect("error.asp?Error=Please enter the sub category name")
End if
if RSValid.recordcount > 0 Then
Response.Redirect("error.asp?Error=That Subcategory already existed")
End if
subcatName = Request.Form("subcatName")
catID = Request.Form("catID")
subcatDesc = Request.Form("subcatDesc")
SQLAdd = "INSERT INTO subcategory(catID,subcatName,subcatDesc)Values('"
SQLAdd = SQLAdd &catID&"','"&subcatName&"','"&subcatDesc&"')"
Conn.Execute(SQLAdd)
Response.Redirect("done.asp?Msg=Record has been added to database")
Else
SQL = "SELECT * FROM category order by catName"
RS.Open SQL, Conn
%>