[Resolvido]Campo Independente em Formulario

Boa tarde
Tenho um form Chamado "Agenda" que tem um campo independente Chamado "QTD"

O valor do campo QTD é assim:

Private Sub Form_Current()
On Error Resume Next
QTD = DCount("idconsulta", "Agenda", "[DataAviso] =#" & Format(Date, "mm/dd/yyyy") & "#") & " - Marcações"

End Sub

Queria que ao abrir esse mesmo formulario se o valor do campo "QTD" for igual a 0 (ZERO) o formulário não abra.

If Me.QTD = 0 Then
MsgBox "Não Existe Dados Registados !", vbQuestion, "Agenda "
Cancel = True
Exit Sub
DoCmd.Close acForm, "Agenda"
End If
Obrigado

E se usar o DCount no momento de abrir o formulário?

If DCount("idconsulta", "Agenda", "[DataAviso] =#" & Format(Date, "mm/dd/yyyy") & "#") = 0 Then
MsgBox "Não Existe Dados Registados !", vbQuestion, "Agenda "
DoCmd.Close acForm, "Agenda"
End If

Obrigado Criquio

Grato pelo retorno.