[Resolvido]Acontecimento ao carregar um formulário

Bom dia Amigos

Ao carregar um formulário tenho o seguinte código.

Private Sub Form_Load()

If Usuario <> "Programador" Then
     MsgBox "Acesso bloqueado.", vbCritical, "Acesso Restrito"
   DoCmd.Close acForm, "Picar"

Else

End If

'-----------------------------------------------------------------------------------------------

If Form.RecordsetClone.RecordCount = 0 Then
     MsgBox "Não Tem Movimentos Para Conferir ", vbQuestion, "Gestão Despesas"
  DoCmd.Close acForm, "Picar"
End If


End Sub


Queria que quando acontecer o primeiro If  ( If Usuario <> "Programador" Then), fechava logo  o formulário (Picar) e o  segundo If já não ocorria.
Obrigado

Resolvi assim

Fica aqui pode servir para alguém.


If Usuario <> "Programador" Then
MsgBox "Acesso bloqueado.", vbCritical, "Acesso Restrito"
DoCmd.Close acForm, "Picar"

ElseIf Form.RecordsetClone.RecordCount = 0 Then
MsgBox "N?o Tem Movimentos Para Conferir ", vbQuestion, "Gest?o Despesas"
DoCmd.Close acForm, "Picar"
End If

Bom dia Assis,

Obrigado pelo retorno, o fórum agradece.

Abraço