[Resolvido]Esperar a resposta no Formulário para sair do Loop e continuar...

Caros colegas, após pesquisas não encontrei uma solução para o que estou tentando criar. A idéia é de que somente prosiga após o usuário digitar a DATAINICIAL no FrmAministradorLX, mas fica preso no loop mesmo depois de digitado.
Private Sub VISUALIZAR_Click()
On Error Resume Next

Do
DoCmd.OpenForm "frmadministradorlx"
Loop Until Forms!Frmadministradorlx!DATAINICIAL.Value <> ""


If GPRELATUS.Value <> 0 Then
Dim REL As String
Select Case GPRELATUS.Value
Case 1
MsgBox "Escolha um Relatório com Data!", vbInformation, "Atenção"
Exit Sub
Case 2
REL = "RELDOACOES REALIZADASD"
Case 3
REL = "RELRECEITASRECEBIDASB"
Case 4
REL = "RELETIQUETASANIVERSARIOA"
Case 5
REL = "RELCAIXARECEPCAOM"
End Select
MsgBox "Por favor, NÃO aperte a tecla CANCELAR se surgirem novas Caixas de Mensagens!", vbInformation, "Atenção!"
DoCmd.OpenReport REL, acViewReport
Else
MsgBox "Selecione um Relatório!", vbInformation, "Atenção"
End If

End Sub
Agradeço desde já!
MPS

Não seria Do While no lugar de Do Until? E se passasse essa instrução para o formulário que será aberto ao invés do formulário chamador?

Criquio, obrigado pela atenção!
Mas o Do While está permitindo o VBA avançar no procedimento sem que eu preencha o campo DATAINICIAL.
Talvez o ideal seria fazer com que o procedimento aguardasse até o usuário apertar um botão no formulário onde insere a DATAINICAL para dar prosseguimento.
Mas como fazer?

Nas linhas que fazem referência a controles do formulário, coloque Forms!NomeDoPrimeiroForm! antes dos nomes do controle. Por exemplo, no lugar de:

If GPRELATUS.Value <> 0 Then coloque:

coloque:

If Forms!NomeDoPrimeiroForm!GPRELATUS.Value <> 0 Then

Acho que não é o caso de usar loop.

Poderia ser algo mais ou menos assim, no lugar do loop:

Código:

If IsNull(Forms!Frmadministradorlx!DATAINICIAL) Then
    MsgBox "Informe a data inicial"
    Exit Sub
End If

Criquio e Cláudio, obrigado pela dedicação!
Resolvi com ajuda do Alexandre, conforme abaixo:
http://maximoaccess.forumeiros.com/t9853-resolvidoinputbox-com-padrao-dd-mm-yyyy