Access Zugriff auf Bearbeiter neu regeln

Sub currentBearbeiterSetzen()
    Dim strCurrentUserKuerzel As String
    Dim db As Database
    Dim rst As Recordset
    
    strCurrentUserKuerzel = CurrentUser()
    
    ' Programm beenden, wenn Bearbeiterküzel nicht 3 Zeichen lang  
    If Len(strCurrentUserKuerzel) <> 3 Then
        MsgBox "BearbeiterKürzel muß genau 3 Zeichen lang sein!" & NL & "Programm wird verlassen!"  
        Application.Quit
    End If
    
    ' aktuellen Benutzer in tblXBearbeiter suchen und Daten in globalen BearbeiterRecord übernehmen  
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("tblXBearbeiter", dbOpenTable)  
    
    rst.Index = "Kürzel"  
    rst.Seek "=", strCurrentUserKuerzel  
    If rst.NoMatch Then
        MsgBox "Das eingegebene Kürzel ist nicht in Holist registriert" & NL & "Programm wird verlassen!"  
        rst.Close
        Application.Quit
    End If
    
    currentBearbeiter.lngID = rst!ID
    currentBearbeiter.strKürzel = rst!Kürzel
    currentBearbeiter.strName = rst!Name
    currentBearbeiter.strWordPfad = rst!WordPfad
    currentBearbeiter.bolPCTel = rst!PCTel
    currentBearbeiter.strAdrSelect = rst!AdrSelect
    
    currentBearbeiter.lngVorAD = rst!VorAD
    currentBearbeiter.lngVorTyp = rst!VorTyp
    currentBearbeiter.lngVorQuelle = rst!VorQuelle
    currentBearbeiter.strVorOrt = rst!VorOrt
   
    rst.Close
    Set db = Nothing
End Sub