Обновление пользовательской ленты

Option Compare Database
Option Explicit
Public RealRibbon As IRibbonUI ' сохранение в текущей переменной объекта текущей ленты для 'дальнейших действий
Public Sub OnLoad(ribbon As IRibbonUI)
    Set RealRibbon = ribbon
End Sub
 
Public Sub LoadImage(NameImage As String, ByRef Image)
    Set Image = LoadPictureGDIP(CurrentProject.Path & "\images\" & NameImage)
End Sub
 
Public Sub FormChangePass(control As IRibbonControl)
    DoCmd.OpenForm "ChangePassword"
End Sub
 
Public Sub Paid(control As IRibbonControl, ByRef visibled) ' передаю параметр для ативации или 'блокирования кнопки Должники
visibled = NoMoney
End Sub

Private Sub btnEnterProgram_Click()
Application.SetOption "ShowWindowsInTaskbar", False
 
Dim PasswordBuf As String
Dim DS As Integer
DS = 1
Dim LoginBuf As String
Dim Count As Integer ' счётчик количества использованных попыток
Dim AccessBuf As Boolean ' использован лимит ввода или нет
LoginBuf = Me.txtLogin.Value
 
If IsNull([Forms]![Authorization]![txtLogin]) And IsNull([Forms]![Authorization]![txtPassword]) Then
    MsgBox "Введите логин и пароль", vbOKOnly
Else
    If IsNull([Forms]![Authorization]![txtLogin]) Then
 
        MsgBox "Введите логин", vbOKOnly
    Else
        If IsNull([Forms]![Authorization]![txtPassword]) Then
            MsgBox "Введите пароль", vbOKOnly
        Else '3
            Sqlstr = "SELECT*FROM tblUser WHERE (tblUser.Login = '" & LoginBuf & "')"
            Call Connection(Sqlstr)
            If rst.EOF And rst.BOF Then
 
                PlaySound CurrentProject.Path & "\sound\Windows Hardware Fail.wav", 1
                MsgBox "Неправильно введён логин и/или пароль", vbOKOnly, "Внимание!"
                                         
            Else
                If rst!AccessDB = True Then '2
                    
                    PasswordBuf = UnCod(rst!Password)
            
                    If PasswordBuf = [Forms]![Authorization]![txtPassword] Then '1
                        PlaySound CurrentProject.Path & "\sound\Windows Error.wav", 1
                        MsgBox "Вход выполнен", vbOKOnly
                        WorldLogin = Me.txtLogin.Value
                        WorldPass = Me.txtPassword.Value
                        NoMoney = rst!Access1
                        If NoMoney = 0 Then
                            NoMoney = False
                        Else
                            NoMoney = True
                        End If
                        DoCmd.Close
                        
                    Else
                            PlaySound CurrentProject.Path & "\sound\Windows Hardware Fail.wav", 1
                            MsgBox "Неправильно введён логин и/или пароль", vbOKOnly, "Внимание!"
                    End If
                End If
            End If
        End If
    End If
End If
Set rst = Nothing
Set Connect = Nothing
RealRibbon.Invalidate ' обновление ленты
End Sub