Forbindelse

Hej

Hej har denne fil som jeg prøve at åbne en forbindelse til en database med. Det er ikke den server jeg plejer at bruge.
<%
Dim Conn
function OpenConn (DBName)

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"), instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

End function

OpenConn("ah.mdb")

Set objRS = server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = Conn
%>
Men jeg får denne felj:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x5dc Thread 0x510 DBC 0x25f9024 Jet'.

/forb.asp, line 7

Er der en der kan hjælp mig