Tipo di errore: eccezione

[Grinder]

Cosa vuol dire???

Tipo di errore:
(0x80020009)
Eccezione.
/remtech/Gaming/configura.asp, line 58

<%
Dim modello, rs, rs_numRows, rs_componente, var

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_remtech_STRING
rs.Source = "SELECT * FROM configurazioni WHERE modello = '"
& session("modello") & "'"
rs.Open()

function desc_componente(campo)
Set rs_componente = Server.CreateObject("ADODB.Recordset")
rs_componente.ActiveConnection = MM_remtech_STRING

if campo =  1 then
    var = rs("conf_01")
end if

if campo =  2 then
    var = rs("conf_02")
end if

if campo =  3 then
    var = rs("conf_03")
end if

if campo =  4 then
    var = rs("conf_04")
end if

if campo =  5 then
    var = rs("conf_05")
end if

if campo =  6 then
    var = rs("conf_06")
end if

if campo =  7 then
    var = rs("conf_07")
end if

if campo =  8 then
    var = rs("conf_08")
end if

if campo =  9 then
    var = rs("conf_09")
end if

rs_componente.Source = "SELECT * FROM componenti WHERE 
cod_art = '" & var & "'"
rs_componente.Open()

end function

Set rs_prezzo = Server.CreateObject("ADODB.Recordset")
rs_prezzo.ActiveConnection = MM_remtech_STRING
rs_prezzo.Source = "SELECT * FROM componenti 
WHERE cod_art = '"&rs("conf_01")&"'"
rs_prezzo.Open()

Fino a ieri funzionava!