ADO参数化查询：无法设置CursorType / CursorLocation

Question

我正在尝试在ASP classic中编写一个函数，使用ADO对SQL Server数据库进行安全的参数化查询，并且我想返回一个非前向的记录集。

我找不到有关如何使用这两个参数和控制光标类型/位置的任何指导。

我得到的错误是

  

未为命令对象

设置命令文本

这是我到目前为止的代码：

sub ParameterizedSQL2(ByRef RS, strSQL, param1)
    Set DB_Conn = Server.CreateObject("ADODB.Connection") 
    SET rs = Server.CreateObject("ADODB.RecordSet")
    DB_Conn.Open Application("ConnectionString")

    Set objCmd = Server.CreateObject("ADODB.Command")
    ObjCmd.ActiveConnection = DB_Conn

    Set objParam = objCmd.CreateParameter("@PAR", adVarChar, adParamInput, 250)  
    objCmd.Parameters.Append(objParam)
    objCmd.Parameters("@PAR") = param1
    objCmd.CommandType = adCmdText
    ObjCmd.CommandText = strSQL 'The paramterized query of the form [SELECT * from Table WHERE Field=?]

    rs.Open objCMD, , adOpenStatic, adLockOptimistic

    Set DB_Conn = nothing
    Set objCmd = nothing
    Set objParam = nothing
End sub