ADODB.Connection vil ikke dele adgang

Hej Eksperter

Jeg har problemer med min hjælpfil og er jo så lidt på spanden (se http://eksperten.dk/spm/557423).
Denne kode skulle åbne et ADODB.Recordset ;
  Dim kalenderRS As ADODB.Recordset
  Dim Con As ADODB.Connection
  Set kalenderRS = New ADODB.Recordset
  kalenderRS.CursorType = adOpenKeyset
  Set Con = New ADODB.Connection
  Con.Provider = \"Microsoft.Jet.OLEDB.4.0\"

  Con.Open \"STIEN\XXX.mdb\"

  kalenderRS.Open \"SELECT * FROM qryBookingKalender_Source\"

MEN der opstår en delingsfejl :
Databasen .... er bragt i en tilstand hvor det er umuligt at åbne eller låse den !

Som skrevet er min hjælp-fil død og jeg har ingen chance for at gætte hvad der skal til !~)