Hurtigt! Fejl i connect til db

Hej. Jeg skal lige bruge noget lynhjælp inden i morgen. Jeg har problemer med at connecte til db'en.

Dette er metoden jeg kalder for at åbne forbindelsen til db:

<%
  dim cn4, cnstr4
  dim rs4, sql4
  Function DBConnection4()
    set cn4 = server.createobject("adodb.connection")
    cnstr4 = "Provider=Microsoft.Jet.OLEDB.4.0;"
    cnstr4 = cnstr4 & "Data Source=D:\db1.mdb;"
    cn4.connectionstring = cnstr4
    cn4.open
    set rs4 =server.createobject("adodb.recordset")
  End Function
%>

Der sker fejl i linjen: cn4.open
Fejltype:
Microsoft JET Database Engine (0x80004005)
Unspecified error
/Fysio/DBConnection.asp, line 39