error '80020009' Ayuda

[hc122396]

Amigos, tengo un formulario que envia la consulta a un archivo ASP.

Por ejemplo si consulto por empresa, me muestra todos aquellos registros en cuyo nombre de empresa esté la cadena que he introducido en el formulario.

La cuestion es que son dos tablas, en una tabla va toda la inforación de la empresa, como contacto, dirección, etc
Y en otra van los productos (por cada producto un registro) de esta empresa, relacionadas por un campo en comun que se llama refererencia.

La consulta es la siguiente:


SQL="SELECT prod_socios.referencia,prod_socios.productos,* FROM prod_socios,socios WHERE empresa LIKE '%"&n_empresa&"%' and prod_socios.referencia=socios.referencia"

Y para desplegar los registros:

do While not rs.EOF
Response.Write( "<TR>" & vbCrlf )
referactual= rs.Fields("socios.referencia")
Response.Write( "<TD><B>Nombre de la Empresa</B></TD>" & vbCrlf )
Response.Write( "<TD>" & rs.Fields("empresa") & "</TD></A>")
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>Contacto</B></TD>" & vbCrlf )
Response.Write( "<TD>" & rs.Fields("Contacto1") & "</TD>" )
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>Dirección</B></TD>" & vbCrlf )
Response.Write( "<TD>" & rs.Fields("Direccion") & "</TD>" )
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>Teléfono</B></TD>" & vbCrlf )
Response.Write( "<TD>" & rs.Fields("Telefono") & "</TD>" )
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>PRODUCTOS</B></TD>" & vbCrlf )

While rs.Fields("prod_socios.referencia")=referactual
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD></TD>" & vbCrlf )
Response.Write("<TD>" & rs.Fields("prod_socios.productos") & "</TD>")
rs.MoveNext
Wend
Response.Write( "</TR>" & vbCrlf )
Loop



me muestra los registros como deben de ser, pero al principio me pone el siguiente error:

error '80020009'
Ocurrió una excepción.
En esta linea : While rs.Fields("prod_socios.referencia")=referactual

A que se deberá este problema, si alguien me puede ayhudar se klo agradeceria mucho.