Dim i%
    For i = frmHaupt.mnuSchichtMenu.UBound To 1 Step -1  'vom grössten bis 1
        Unload frmHaupt.mnuSchichtMenu(i)
    Next i
 
    Dim n%
    Dim dySchichtMenu As Recordset
    Set dySchichtMenu = DB.OpenRecordset("SELECT * FROM db_table_Einstellungen")
    dySchichtMenu.MoveLast
    dySchichtMenu.MoveFirst
        For n = 1 To dySchichtMenu.RecordCount
            Load frmHaupt.mnuSchichtMenu(n)
            frmHaupt.mnuSchichtMenu(n).Tag = Auslesen(dySchichtMenu.Fields( _
              "Nr"))
            frmHaupt.mnuSchichtMenu(n).Caption = Auslesen(dySchichtMenu.Fields( _
            "Belegschaft"))
            dySchichtMenu.MoveNext
        Next n
    frmHaupt.mnuSchichtMenu(0).Visible = False