Microsoft VBScript runtime error '800a01fb' An exception occurred: movenext

Bonjour,

Je souhaite savoir pourquoi j'ai le bug suivant sur ma page ASP :


Microsoft VBScript runtime error '800a01fb' An exception occurred: 'movenext'
Voici le bout du code source qui pose problème :

set rsconso2 = server.createobject("adodb.recordset")
rsconso2.open chsql, condb, adopendynamic, adlockreadonly, adcmdtext


if not(rsconso2.bof and rsconso2.eof) then
rsconso2.movefirst
while not rsconso2.eof
writeFileLine objStream, rsconso2, csv -- écriture dans un fichier
rsconso2.movenext
wend
end if

rsconso2.close()
condb.close()
objStream.close()

D'avance merci !