Tratar Erro

Ola amigos gostaria de uma ajuda estou tentando fazer um tratamento de erro porem to ficando doido e no evento ao abrir de um formulario, que aparece a mensagem do código e depois aparece a açao open form foi cancelada erro 2501 o codigo e esse
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_TrataErro
 If DLookup("[AbrirClientes]", "usuario", "[login] = txtUsuarioAtual") Then
 

 Else
   
   MsgBox "Acesso Negado, Usuário não Permitido.", _
         vbOKOnly + vbCritical, "SISTEMA VENDAS."
Cancel = True

 End If
Exit_TrataErro:
 Exit Sub
Err_TrataErro:
MsgBox "Não existe divisão por zero !!!!"
End Sub

gostaria de fazer com que ele não apareça mais vcs poderia me ajudar?

Veja se ajuda:

Private Sub Form_Open(Cancel As Integer)
 
  If Not IsNull(DLookup("[AbrirClientes]", "usuario", "[login] = txtUsuarioAtual")) Then
       ***código de abertura***
  Else  
        MsgBox "Acesso Negado, Usuário não Permitido.", vbOKOnly + vbCritical, "SISTEMA VENDAS."
       Cancel = True
  End If
End Sub

Então amigo até funciono porem ele não pode abrir o formulario pois ele verifica se o usuario atual tem permissão para abrir o formulario, se na tabela usuario tem o campo abrir clientes marcado como sim, ai se ele não aparece a mensagem e cancela a ação. seu código não apareceu a mensagem porem abriu o formulario normal.

If DLookup("[AbrirClientes]", "usuario", "[login] = txtUsuarioAtual")=-1 Then
***código de abertura***
Else
MsgBox "Acesso Negado, Usuário não Permitido.", vbOKOnly + vbCritical, "SISTEMA VENDAS."
Cancel = True
End If

Experimente assim!

Se o valor do campo AbrirCliente=-1 (marcado) ele libera abertura!

Amigo, o Dlookup tem que retornar "Sim" ou o nome do usuário logado?
Se ele tem que retornar "Sim", o código seria parecido com esse:

Dim permissao As String

If Not IsNull(DLookup("AbrirCliente", "usuario", "Usuario = '" & UsuarioLogado & "'")) Then
permissao = DLookup("AbrirCliente", "usuario", "Usuario = '" & UsuarioLogado & "'")
End If

If permissao <> "Sim" Then
MsgBox "Acesso Negado, Usuário não Permitido.", vbOKOnly + vbCritical, "SISTEMA VENDAS."
Cancel = True
End If

Outra coisa: o usuário logado tem que estar numa variável global e pública, de modo que a informação seja acessada por qualquer formulário no projeto.

Abraços!