database fejl

Har følgende kodestump

<%
dim stringConnection
Set con = Server.CreateObject("ADODB.Connection")
stringConnection = "DSN=db1;Database=db1;"
con.Open stringConnection

sql = "SELECT * FROM Tabel"


set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql, con, 3, 1
intTotalRecords = rs.RecordCount
    Randomize()
    intRandomNumber = Int((intTotalRecords * Rnd))
    rs.Move intRandomNumber
    response.write rs(0)
rs.Close
con.close


får følgende fejl:

Error Type:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)'. It is already opened exclusively by another user, or you need permission to view its data.
/selectAccess.asp, line 5

fatter minus, da ved at prøve med Northwind en standard database i Access der virkede det.Men med min egen oprettede *.mdb virker det ikke??