[Resolvido]Form. Desligamento e logoff do sistema

Boa tarde galera, estive ausente por esses tempos. Gostaria da ajuda de vcs para analisar um código relativamente simples, porém não estou conseguindo executá-lo.

Seguinte, tenho um formulário com grupo de opções no qual seleciono "Desligar" ou "Reiniciar" o sistema. O problema que independente da seleção o sistema reinicia, em várias tentativas outras, consegui desligar. Não estou conseguindo empregar o código para reiniciar ou desligar no mesmo botão de confirmar seleção. Segue o código para análise.

Código:

Private Sub btnOk_Click()
Dim Opcao As Boolean

If MsgBox("Deseja executar esta ação?", vbQuestion + vbYesNo, "Logon") = vbYes Then

Select Case Opcao = Me.cxOpcao.Value

Case Opcao = 1

DoCmd.Close
DoCmd.OpenForm "Form_Login"

Case Opcao = 2

DoCmd.RunCommand acCmdRepairDatabase
DoCmd.Quit

End Select
End If
End Sub



Quero saber porque não executa no select case, ou se tem outra forma de fazer isso. Obrigado a todos.

Boa tarde....

Poste as partes envolvidas para melhor lhe ajudarmos.

Grato

Caro Silvio, obrigado pela atenção.

Segue um pedaço do banco para vossa análise. o botão logoff no canto superior direito é o que chama o formulário e dá a opção de escolha da ação do sistema. como envolve a tela de login, criei um de teste. Login: teste / Senha: 123

Boa tarde

Experimente...

Código:

Private Sub btnOk_Click()
If MsgBox("Deseja executar esta ação?", vbQuestion + vbYesNo, "Logon") = vbNo Then
  MsgBox "Ação cancelada pelo usuário", vbInformation, Me.Caption
  Exit Sub
 
  Else
  If Me.cxOpcao.Value = 1 Then
  DoCmd.Close acForm, "Menu"
  DoCmd.OpenForm "Form_Login"
  End If
 
      If Me.cxOpcao.Value = 2 Then
      MsgBox "Você está saindo do sistema", vbInformation, Me.Caption
      DoCmd.Quit
      End If
      End If
End Sub

Funcionou perfeitamente, obrigado Silvio pela atenção. Com as mensagens informativas ficou melhor ainda, havia tentado usando o If mas também reiniciava... ficou muito bom. Obriagado! (Resolvido)