Public Sub RedrawRecentMenu()
Dim menCon As CommandBarControl
Dim cc As CommandBarControl
Dim MaxControlsInMenu, pos As Long
Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("last", dbOpenDynaset)
If rst.EOF Then Exit Sub
rst.MoveFirst
With CommandBars("MainMenuSmeta").Controls("&Файл").Controls("Последние файлы")
     pos =  1 
    Do While Not rst.EOF
        Set menCon = .Controls.Item(pos)
        menCon.Caption = "&" & rst![№] & " " & rst![Файл]

        menCon.OnAction = "=fileop(" & Chr( 34 ) & "recent" & rst![Файл] & Chr( 34 ) & ")"
        rst.MoveNext: pos = pos +  1 
        Set menCon = Nothing
    Loop
End With
End Sub