Tornar objectes buits amb asp

Class ImplContenidorDao
Public Function getContenidorPerCodi( codiContenidor )
Dim sql, rs, elContainer, resposta

sql = "SELECT * FROM re_contenidor WHERE  codi ='" & codiContenidor & "' and arxiu = 0"
Set rs = conBd.query( sql )

If not rs.eof Then
Set elContainer = createobject("Scripting.Dictionary")
elContainer.Add "tipus", trim(rs("tipus"))
elContainer.Add "codi", trim(rs("codi"))
elContainer.Add "adreca", trim(rs("adreca"))
elContainer.Add "municipi", trim(rs("municipi"))
Set getContenidorPerCodi = elContainer
Else
Set getContenidorPerCodi = nothing
End If

End Function
,...
End Class

Dim ContenidorDao : Set ContenidorDao = new ImplContenidorDao

'------------------------------------------------------------------------------------
Dim idContenidor, rsContenidor
idContenidor = Utils.vigilaPost( Request.QueryString("idContenidor") )
Set rsContenidor = ContenidorDao.getContenidorPerCodi( idContenidor )
If rsContenidor is Nothing Then
Response.write("No he trobat res!!!")
Else
Response.write("Trobat")
End If