使用VB / Classic ASP GetRows进行参数化查询？

Question

我正在维护一个运行经典ASP的系统，我只是想知道有没有简单的方法来调整这个功能，所以我可以使用参数化查询？

Function GetRSArray(strSQL)

    Set objRS = oConn.Execute(strSQL)

    If Not objRS.EOF Then 
        oFarrRS = objRS.GetRows()
        GetRSArray = oFarrRS
    Else
        GetRSArray = ""
    End if

    Set objRS = Nothing

End Function