Configurar ODBC

E ae galera bem eu nem sei mexer em asp tava dando uma fuçada aki esses dias e eh o seguinte peguei uma loja virtual do locaweb ..... e esta acontecendo este erro aki abaixo:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xb9c Thread 0x380 DBC 0x1055024 Jet' do Registro.

/loja/incfaq.asp, line 11

Bem eu naum entendo disso acho q eu tenho q configurar o ODBC para acessar o BD do access acho q eh issu se tiver errado me falem.

Bem o global asa esta assim

<!--Caminhos dos arquivos --> REM -- Deste ponto para baixo não é realmente necessario modificacoes       'Caminhos padrões utilizados pela loja     Application("ServidorSMTP") = "smtp2.locaweb.com.br"     Application("BancoDeDados") = "e:\home\" & Application("Nome") & "\dados\loja51.mdb"     If Application("DBAccess") = 1 Then        Application("StringConexaoODBC") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("BancoDeDados") & ";"     Elseif Application("DBAccess") = 0 Then        Application("StringConexaoODBC") = "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & Application("ServidorSQLServer") & ";DATABASE=" &       Application("Nome") & ";UID=" & Application("Nome") & ";PWD=" & Application("SenhaSQLServer") & ";"     Elseif Application("DBAccess") = 2 Then Application("StringConexaoODBC") = "DSN=" & Application("DSNInterbase") & ";UID="& Application("UserInterbase") &";PWD=" & Application("SenhaInterbase")     End If     If Application("DirComplementar") = "" Then        Application("URLCompleta") = "http://" & Application("URLdaLoja")        Application("DiretorioRaiz") = "e:\home\" & Application("Nome") & "\web\"        If Instr(Application("SiteSeguro"), "https:") <> 0 Then           Application("CaminhoSeguro") = Application("SiteSeguro") & "/" & Application("Nome")        Else           Application("CaminhoSeguro") = Application("SiteSeguro")        End If     Else        Application("URLCompleta") = "http://" & Application("URLdaLoja") & "/" & Application("DirComplementar")        Application("DiretorioRaiz") = "e:\home\" & Application("Nome") & "\web\" & Application("DirComplementar") & "\"        If Instr(Application("SiteSeguro"), "https:") <> 0 Then           Application("CaminhoSeguro") = Application("SiteSeguro") & "/" & Application("Nome") & "/" & Application("DirComplementar")        Else           Application("CaminhoSeguro") = Application("SiteSeguro") & "/" & Application("DirComplementar")        End If       End If

Por favor me ajudemmmmmmmmmmmmmmm

valeu