ouvrir la clé de registre 'Temporary (volatile)

bonjour,
revoila la petite miss perdue dans ses lignes de codes.
Etudiante Recherche dev généreux pour corriger une ligne de code ou me donner une solution magique. lol

sérieusement voila la bete:
erreur:

Microsoft OLE DB Provider for ODBC Driverserror '80004005'

[Microsoft][Pilote ODBC Microsoft Access]Erreur générale Impossible d'ouvrir la clé de registre 'Temporary (volatile) Jet DSN for process 0x3b0 Thread 0xa00 DBC 0x1355024 Jet'.

/gilbert/sql/controle-index.asp, line 10

code:

Set ObjConnex = Server.CreateObject("ADODB.Connection")
ObjConnex.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=sondage.MDB;"

Set LotEnreg = Server.CreateObject("ADODB.Recordset") 
LotEnreg.Open "SELECT `ano` FROM `sondage` WHERE `numero`=" & NoSession , ObjConnex
If Not LotEnreg.EOF Then
ValeurAno = LotEnreg.Fields(0).Value
End If

LotEnreg.Close
ObjConnex.Close

Merci d'avance 

Voila ca fonctionne, c'est magic.


NoSession = Session.SessionID
if Request.Form("BoutonAnnuler") = "" AND Request.Form("BoutonValider") = "" AND Request.Form("BoutonRecommencer") = "" then

Set ObjConnex = Server.CreateObject("ADODB.Connection")
    ObjConnex.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\tide\gilbert\sondage.mdb"
    Set LotEnreg = Server.CreateObject("ADODB.Recordset")
   
LotEnreg.Open "SELECT `ano` FROM `sondage` WHERE `numero`=" & NoSession , ObjConnex
If Not LotEnreg.EOF Then
ValeurAno = LotEnreg.Fields(0).Value
End If

LotEnreg.Close
ObjConnex.Close
   
elseif Request.Form("BoutonAnnuler") <> "Vider" then
    ValeurBoutonValider = Request.Form("BoutonValider")
    ValeurAno = Request.Form("ano")
end if