Dim strInfo As String
        Dim cn As ADODB.Connection
        Dim rs As ADODB.Recordset
        cn = New ADODB.Connection
        strInfo = "driver=Microsoft Access Driver (*.mdb);" & " DBQ=" & "C:\Documents and Settings\renderr\My Documents\db1.mdb" & "; PWD=178595360"
        cn.ConnectionString = strInfo
        cn.Open()
        cn.Close()

Пишет:
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Runtime.InteropServices.COMException: [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x738 Thread 0x424 DBC 0x59649c Jet'.