Hallo Zusammen,
eine Datenbank hat keine Lust mehr mit mir zusammenazuarbeiten.
Fehlermeldung:
"Sie haben momentan keinen exklusiven Zugriff auf die Datenbank. Falls Sie Änderungen vornehmen, werden Sie sie evtl, später nicht speichern können."
Office 2013 32 Bit, Windows 10.

Folgende Funktion erzeugt einen weiteren Zugriff auf die Datenbank, gibt ihn aber, so weit ich das überprüfen kann (Inhalt der Sperrdatei), nicht wieder frei.
Was läuft da falsch?

Function WerteHolenSpeichern(intSpeicherLaden As Integer, strFeld As String, _
strTabelle As String, Optional strEingabeWert As String) As String
'int SpeichernLaden = 1 Laden; 2 Speichern
On Error Resume Next
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset(strTabelle)
    If intSpeicherLaden = 1 Then
        rs.MoveFirst
        WerteHolenSpeichern = rs.Fields(strFeld)
    
    Else
         
         rs.MoveFirst
         rs.Edit
         rs.Fields(strFeld) = strEingabeWert
         rs.Update
    End If



rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Function
 

Schönen Gruß

Ulrich