Contar quantidade de Registro cadastrado na data atual

Boa tarde,

Estou tentando gerar o Número de pedido de compra automatico, e minha ideia
é pegar como padrao " YY.MM.DD.Cod"
YY - ano
MM - mes
DD - dia
Cod - será gerado contando quanto registro com a data de hoje foi cadastrado...

Estou tentando fazer com o seguinte codigo. Para contar a quantidade de registro
mas a resposta é sempre zero.

qtd = DCount("Código", "Tbl de compras", "[Datadopedido] = " & Date)


já tentei de varias formas:
O metodo Date dentro da aspa
qtd = DCount("Código", "Tbl de compras", "[Datadopedido] = Date")

O campo [Data do pedido] fora das aspas, assim ele retornou o total de registro cadastrado
sem filtrar por dia.
qtd = DCount("Código", "Tbl de compras", [Datadopedido] = " & Date)

Para datas utilize o #

qtd = DCount("Código", "Tbl de compras", "[Datadopedido] =#" & Date & "#")

Valeu Alexandre,

Deu certo aqui!!!