Office: Ungültiges Argument

Hallo zusammen!

Ich habe bisher über einen eigene Access-Datenbank NUR für die Daten und eine weitere für die Oberfläche Mehr-User-Möglichkeit gesichert.

Ein Formular hatte ich dabei, dass NUR einer „gleichzeitig“ verwenden durfte und habe dazu beim Öffnen folgenden Code verwendet:

If DCount("ID", "03022018_PruefungenWerdenBerarbeit") > 0 Then

MsgBox "Prüfungsmaske wird gerade von anderem User verwendet", vbCritical

Else

If CurrentProject.AllForms("Wochenübersicht").IsLoaded = True Then

DoCmd.Close acForm, "Wochenübersicht"

End If

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("03022018_PruefungenWerdenBerarbeit", dbOpenDynaset, dbSeeChanges)

rs.AddNew

rs!Bearbeiter = Environ("Username")

rs.Update

rs.Close

DoCmd.OpenForm "19012018_PruefungsView_Gesamt", acNormal

End If


Beim Schließen folgenden, um sicherzustellen, dass das Formular nicht mehr verwendet wird und somit von einer anderen Person verwendet werden darf:

Dim db As DAO.Database

Dim rs As DAO.Recordset


Set db = CurrentDb

Set rst = CurrentDb.OpenRecordset("SELECT * FROM 03022018_PruefungenWerdenBerarbeit", dbSeeChanges)

CurrentDb.Execute "DELETE FROM 03022018_PruefungenWerdenBerarbeit", dbFailOnError



Jetzt habe ich die Daten auf einen SQL-Server gespielt und verknüpfe die Datentabellen, was auch funktioniert, ABER der Teil, der beim Schließen d. Formulars ausgeführt wird, verursacht folgenden Fehler: „Ungültiges Argument“, auf die Zeile „Set rs = CurrentDb.OpenRecordset("SELECT * FROM 03022018_PruefungenWerdenBerarbeit", dbSeeChanges)“ bezugen.

Was mache ich das falsch?

Danke und lG!
Jakob