rieccomi con i miei problemi

dopo essermi autenticato dovrei spedire in automatico un file a determinati utenti cosi:

<%
Dim miaMail

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../mdb-database/consultonline.mdb"))

set rsMUsers = Server.CreateObject("ADODB.recordset")
rsMUsers.Open "SELECT mail FROM archivio WHERE codcli='" & Session("codcli") & "'"
while not rsMUsers.eof

Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rsMUsers(0) 'MANDA LA MAIL A TUTTI
'MiaMail.Cc = "ciao@ciao.it"
'MiaMail.Bcc = "ciao@ciao.it"
MiaMail.Subject = "Invio "
MiaMail.TextBody = "Invio "
MiaMail.AddAttachment "prova.zip" ' da sostituire con percorso file
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()

rsMUsers.movenext
Set miaMail = Nothing
wend

rsMUsers.close
conn.close
%>


ma mi da questo errore:

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/consultonline/spedisci_mail.asp, line 23

che sbaglio



alla linea 23 ho :