Can someone please help me?

I keep getting this message and I do not know how to fix it.
This is the error for line 33:

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 0x3d4 Thread 0xbac DBC 0x2284024 Jet'.

This is the Code:

<table align="center" width="75%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td colspan="3" align="center">Contact Information
  </tr>
  <tr>
    <th>Contact</th><th>Phone Number</th><th>E-Mail</th>
  </tr>
<%
  set MyConn=Server.CreateObject("ADODB.Connection")

'line 33
MyConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("\nvillare\db\geo.mdb"))

  mySQL = "SELECT CONTACT_NAME, CONTACT_PHONE, EMAL FROM CONTACTS WHERE LOCATION=Geoscience and Engineering ORDER BY CONTACT_NAME ASC"
  'RS=recordset
  set RS = MyConn.Execute(mySQL)

 While RS.Eof = false
%>
  <tr>
    <td><%=RS("CONTACT_NAME").Value%></td>
    <td><%=RS("CONTACT_PHONE").Value%></td>
    <td><a href="mailto:<%=RS("EMAIL").Value%>"><%=RS("EMAIL" ).Value%></a></td>
  </tr>
</table><p>
<%
   RS.MoveNext
   wend

  RS.Close
  RS = null
%>
</center>

I appreciate any help


Thanks!

nvillare

__________________
Thanks!

N

You can change the connection string and rerun the code. Add the following code:
Dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=" & Server.MapPath("\nvillare\db\geo.mdb")
Hope this will solve your problem