run-time error 3734

[sipie]

Last week this part of my code was working fine. But today
I keep getting this error

Run-time error 3734

The database has beeen placed in a state by user 'admin' on machine 'Slider'that prevents it from being opened or locked


the code is as follows

Dim wrkJet As Workspace
Dim wrkODBC As Workspace
Dim dbsappoint As Database
Dim rstTemp As Recordset
Dim strsql As String

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set wrkODBC = CreateWorkspace("", "admin", "",dbUseODBC)
Set dbsappoint = wrkjet.openDatabase("c:\appoint.mdb&quot

The microsoft knowledge base refers to a subform, but I'm not using a sub-form.

Is the only answer service release 1a?????
please help

 

[jgoodman00]

I had that a few days ago also. I am afraid the db has been corrupted. I could find no way around this, & had to resort to a backup.

It is extremely frustrating, because you cannot do anything about it. You cannot even import objects from it... James Goodman

 

[jgoodman00]

I believe I have found a solution to this. If you look in the source folder of the database, I believe the record locking file (ldb). If you manually delete this, you should then be able to open the database & attempt repair... James Goodman