Смена пароля для входа в форму

Private Sub changepassbot_Click()
'Проверяем выбрана ли группа, если нет, выдаем сообщение
If IsNull(Me.User) Then
MsgBox "Выберите пользователя!"
Else
    'Проверяем введен ли пароль, если нет, выдаем сообщение
    If IsNull(Me.oldpass) Then
    MsgBox "Введите старый пароль!"
    Else
        If IsNull(Me.newpass) Then
        MsgBox "Введите новый пароль!"
        Else
           'Сверяем введенный пароль с паролем, сохраненным в таблице Группы пользователей и изменяем его
           If Me.oldpass = Me.User.Column(2) Then
              MsgBox "Пароль верный!"
              [Группы пользователей]![пароль] = newpass
              Else
              MsgBox "Пароль не верный!"
            'В зависимости от выбранной группы открываем соотв-ую форму
           End If
        End If
    End If
End If
End Sub

Private Sub changepassbot_Click()
'Проверяем выбрана ли группа, если нет, выдаем сообщение
Dim s$
If IsNull(Me.User) Then
MsgBox "Выберите пользователя!"
Else
    'Проверяем введен ли пароль, если нет, выдаем сообщение
    If IsNull(Me.oldpass) Then
    MsgBox "Введите старый пароль!"
    Else
        If IsNull(Me.newpass) Then
        MsgBox "Введите новый пароль!"
        Else
           'Сверяем введенный пароль с паролем, сохраненным в таблице Группы пользователей и изменяем его
           If Me.oldpass = Me.User.Column(2) Then
              MsgBox "Пароль верный!"
                
                s = "UPDATE [Группы пользователей] SET Пароль = '" & Me.newpass & "' WHERE КодГруппыПольз=" & Me.User
                'Выполнение запроса
                CurrentDb.Execute s
 
              '[Группы пользователей]![пароль] = newpass
              
              Else
              MsgBox "Пароль не верный!"
            'В зависимости от выбранной группы открываем соотв-ую форму
        '    Select Case Me.ВыборГруппы
        '    Case 1
        '    End Select
           End If
        End If
    End If
End If
End Sub