Errore eccezione

[ancio]

Questo codice:

'aggiungi e scala i servizi
sql_servizio = "SELECT * FROM Servizi_tmp WHERE Prenotazione = '" & request.form("codice") & "'"
set rs_servizio = cn.execute(sql_servizio)
if rs_servizio.eof then
'nn fare nulla
else
Do until rs_servizio.eof
sql_ricerca = "SELECT * FROM Servizi_aggiuntivi WHERE (Servizio = '" & rs_servizio("Servizio") & "' AND Destinazione = '" & request.form("destinazione") & "' AND Localita = '" & Request.form("localita") & "' AND Hotel = '" & Request.form("hotel") & "')"
set rs_serv_aggiuntivo = cn.execute(sql_ricerca)
if rs_serv_aggiuntivo("Allotment") = "Si" then
somma2 = Cint(rs_serv("Adulti")) + Cint(rs_serv("Bambini"))
sql = "UPDATE Servizi_aggiuntivi SET Venduto = Venduto + " & somma2 & " WHERE (Servizio = '" & rs_servizio("Servizio") & "' AND Destinazione = '" & request.form("destinazione") & "' AND Localita = '" & Request.form("localita") & "' AND Hotel = '" & Request.form("hotel") & "')"
cn.execute(sql)
end if
sql2 = "INSERT INTO Servizi_prenotati(Prenotazione,Servizio,Adulti,Bam bini,Data,Prezzo) VALUES ('" & rs_servizio("Prenotazione") & "','" & rs_servizio("Servizio") & "','" & rs_servizio("Adulti") & "','" & rs_servizio("Bambini") & "','" & rs_servizio("Data") & "','" & rs_servizio("Prezzo") & "')"
cn.execute(sql2)
rs_servizio.movenext
loop

mi generare un errore cosi fatto:

Tipo di errore:
(0x80020009)
Eccezione.
/prenotazioni_tour_operator/giornaliero/login.asp, line 298

non riesco a capire dove sbaglio!Aiutoooooooo!

[pip19]

in tutto sto bordello a che posizione è la linea 298??