Hola, tengo un problema con ASP y Componentes

[Arcadio82]

Mi Codigo ASP llama a un componente de la siguiente manera

<%

NOmbre =request("NOmbre ")
set rstbusca=CreateObject("adodb.recordset")
Dim Obj
Set Obj = createObject("ConsultaPlaca.ClsConsultaplaca")
Set rstbusca = Obj.ConsultaPlaca(NOmbre ) 'Aqui esta el error
Set obj = Nothing
If NOT rstBusca.eof Then .....

%>

Este es el mensaje del Error : "La variable de tipo Object o la variable de bloque With no está establecida"


Y este es el codigo del componente

Public Function ConsultaNombre(ByVal NOmbre As String) As ADODB.Recordset

Dim KNOMBREMODULO As String
Dim CadenaConexion As String
Dim strSQL As String
Dim Conn As Connection
On Error GoTo ErrConsultaNombre

CadenaConexion = "Provider=SQLOLEDB;Password=123456;User ID=Usuarioweb;Initial Catalog=bdsistema;Data Source=server1"
KNOMBREMODULO = "Consulta por Placa"

strSQL = "spRd_NOmbre '" & NOmbre & "'"
Conn.ConnectionString = CadenaConexion
Conn.Open

Set ConsultaNombre= Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Exit Function

ErrConsultaNombre:
Conn.Close
Set Conn = Nothing
Err.Raise vbObject + 500, KNOMBREMODULO, Err.Description
End Function