[Resolvido]Erro Função ao converter Para MDE

Boa tarde
Esta função criada por Alexandre Neves, trabalha lindamente no 2003, e no 2007.
Mas se conveter o BD em formato MDE a dita Função dá "ERRO" no 2007
Function ProximoNumero()
'criado por Alexandre Neves
'em 2010-10-23
'para Assis
'do fórum MaximoAccess
Dim Rst As DAO.Recordset
If DCount("*", "ProducaoBloco", "DataBloco=#" & Format(Me.DataBloco, "mm-dd-yyyy") & "#") = 0 Then
Set Rst = CurrentDb.OpenRecordset("SELECT DISTINCT DataBloco FROM ProducaoBloco WHERE Year(DataBloco)=" & Year(Me.DataBloco) & ";")
If Not Rst.BOF Then Rst.MoveLast: Rst.MoveFirst
proximoNumero = Year(Date) & Format(Rst.RecordCount + 1, "0000")
Else
proximoNumero = DLookup("Producao", "ProducaoBloco", "DataBloco=#" & Format(Me.DataBloco, "mm-dd-yyyy") & "#")
End If
Set Rst = Nothing
End Function

Compare as referencias VBA marcadas no 2003 e marque igual no 2007.

Só pode ser um problema de referencias.

Ola JPaulo

As referencias estão iguais

Dá erro em que linha ?

Tentou colocar em Public Function ?

JPaulo

No campo do Form que devia numerar por exemplo 2011-0001 aparece "#Erro" se a BD estiver convertida em MDE.

Mas se a BD estiver só em MDB funciona.

Resolvido com este exemplo do JPaulo
http://dl.dropbox.coim/u/771097/Numeracao3Digitos%26Ano_Assis_I.rar

Obrigado pelo retorno, bom fim de semana.