Starno errore error '80020009'

[Grambo]

sto testando una pagina web che permette di salvare dei messaggi in un db, ma mi da questo problema

error '80020009'
/Ivan/dbs/messaggio_inviato.asp, line 12

la linea 12 è:

if a=objRs("NOME") then

vi mostro tutto il programma (in grassetto l'errore indicato):

<%
a=request.form("a")
titolo=request.form("titolo")
testo=request.form("testo")
trovato=0
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/db.mdb"))

Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * FROM dati")
do while not objrs.eof or trovato=1
if a=objRs("NOME") then
trovato=1
end if
objrs.movenext
loop

if a=session("nome_ut") or testo="" or a="" or trovato=0 then
'********************************
'sta inviando il mex a se stesso oppure il mex è vuoto
'********************************
session("mandato")=0
if trovato=0 then
 session("mandato")=2
end if
end if
if trovato=1 then
if testo<>"" and a<>"" then
'*************************
'il messaggio viene salvato nel db
'*************************
if titolo="" then
 titolo="Messaggio da parte di "&session("nome_ut")
end if
data=now
set objRs = objConn.Execute("INSERT INTO messaggi (DA,A,MESSAGGIO,DATA,TITOLO) VALUES ('"&session("nome_ut")&"','"&a&"','"&testo&"','"&data&"','"&titolo&"')")
end if
end if
response.redirect("invia_messaggi.asp")
%>