Error 3167 recordset is delete

Hello,

ich habe in verschiedenen Newsgroups gesucht aber keine Lösung zu dem
folgenden Problem gefunden.

Zwei Personen arbeiten gemeinsam mit einem VB6-Programm an einer ACCESS
2000 Datenbank Der Zugriff von VB auf ACCESS erfolgt mit DAO 3.60.

Eine der beiden Personen hat zweimal morgens beim ersten Zugriff auf
die Datenbank die folgende Fehlermeldung bekommen Err 3167 "Datensatz
ist gelöscht". Der Fehler tritt auf in der ersten Anweisung des
Programms wo DAO verwendet wird. Es ist die unten aufgeführte letzte
Zeile "dbs.TableDefs.Refresh".


-------------------------------------------------------------------------------------------------------------------------

Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim ws As DAO.Workspace


Set ws = DBEngine.Workspaces(0)
Set dbs = ws.OpenDatabase(var_Dateiname, False, False, ";pwd=" &
const_Kennwort_Access)
dbs.TableDefs.Refresh

-----------------------------------------------------------------------------------------------------------------------------
Beim ersten Mal hat er das Programm deinstalliert und dann neu
installiert. Danach war die Fehlermeldung weg. Beim zweiten Mal hat er
mit einer Sicherungskopie der Datenbank vom Vortag weitergearbeitet.
Was kann denn der Fehler sein. Dao ist in der Version 3.60 installiert.




Vielen Dank für alle Antworten

Jürgen Breitbach