[Resolvido]cod para abrir um form

Bom dia a todos!preciso saber onde está o erro dentro do cod! ,estou utilizando este cod dentro de um form menu ,para abrir outro form,caso haja credito na data atual,mas o formmenu abre e o outro "frmCredito1"mesmo havendo credito na data não abre .
O BD abre o form menu em 1º .obrigado
ja usei o cod no evento ao abrir e ao carregar tbm,!!!

Private Sub Form_Open(Cancel As Integer)
Dim lngCount As Long

lngCount = DCount("*", "tblResumo", "DataVencimento = #" & Date & "#")

If lngCount > 0 Then
DoCmd.OpenForm "frmCredito1"
End If
End Sub

experimente:

if DCount("*", "tblResumo", "DataVencimento = Date()") > 0 then DoCmd.OpenForm "frmCredito1"

Sucesso!

Muito obrigado ,exibiu!!!