[Resolvido]Problemas com Dcount

Caro amigos, estou com o seguinte problema
Tenho a TabPonto onde quero verificar se os campos Codprom03, Data03, e HoraEntA03 estão preenchidos.
A verificação seria o seguinte, se o campo CodProm03 for igual a TxCodPromEntA e Data03 for igual a TxData03A e HoraEntA03 estiver preenchida, vá para VerPar1 caso o contrário vá para OkBat1;
No meu caso, todos os campos estão preenchidos, mas, sempre está indo para OkBat1, creio que de alguma forma não está contando os registros, pois se estivesse o valor seria maior ou = a 1 fazendo com que fosse para o VerPar1;
Segue o código

Código:

If Nz(DCount("*", "Tabponto", "[Codprom03]=" & Me.txcodpromenta & " And [Data03]=#" & Me.txdata03A & "#" & "And [horaentA03]<>0"), 0) >= 1 Then
GoTo VerPar1
Else
GoTo okbat1


Gostaria de saber onde é o meu erro.

Agradeço a todos;

Boa tarde, Eneas
Tente
If Nz(DCount("*", "Tabponto", "[Codprom03]=" & Me.txcodpromenta & " And [Data03]=#" & Me.txdata03A & "# And Not IsNull(horaentA03)"), 0) >= 1 Then
GoTo VerPar1
Else
GoTo okbat1
Se não der certo, veja a formatação da data: Format(Me.txdata03A,"mm-dd-yyyy")

Nao deu certo com a sintaxe passada. Nao entendi a questao da data, onde eu colocaria esse parametro?
No meu form, a data estah aparecendo como ddmmaaaa e no valor padrao estah Data() igual ao gravado na tabela.
Obrigado pela resposta amigo.

Eneas,
A formatação da data é na expressão
If Nz(DCount("*", "Tabponto", "[Codprom03]=" & Me.txcodpromenta & " And [Data03]=#" & Format(Me.txdata03A,"mm-dd-yyyy") & "# And Not IsNull(horaentA03)"), 0) >0 Then
GoTo VerPar1
Else
GoTo okbat1

Caro Alexandre...Muito Obrigado, deu certinho aqui...

Que Deus possa abencoar grandemente a sua vida.