[Resolvido]Código de aviso sem dados no form!

Olá pessoal.

Tenho uma tabela "TbMpsArmazem"

Tenho uma consulta "ConMpsAtualGG1" que como critério defini:
no campo data, Data() para me retornar os registros da data atual.
Tenho um form "FrMpsAtualGG1" com base de dados da consulta é uma form para atualização da data atual.

No form defini um código para que se não tiver dados
recebe uma mensagem que não há dados.

código:

Private Sub Form_Load()
Dim X As String
X = DCount("*", "ConMpsAtualGG1")
If X <= 0 Then
MsgBox "Não existem dados com a data de hoje, abertura do formulário cancelada! ", vbInformation, "Prezado Operador!"
DoCmd.CancelEvent
DoCmd.Close acForm, "FrMpsAtualGG1"
Exit Sub
Else
End If
On Error Resume Next
End Sub

Está a funcionar normal, acontece que eu tenho outro form "Tela"
que tem o botão para abrir esse meu form que tem o código,
clico no botão ele abre normal o form "FrMpsAtualGG1" se
tiver registros com a data atual. Se não tiver registros
ao clicar no botão ele me retorna a mensagem, mas quando
clico no botão "OK" da mensagem, ela fecha normalmente
só que joga o meu fom "Tela" para o canto do monitor.

A pergunta é:

Está certo esse meu código?
Alguem tem alguma opnião?
Algume tem outro código que esteja funcionando normal?

Um abraço a todos, estou no aguardo.

Companheiros obrigado pela atenção!

Consegui resolver aqui.