[Resolvido] Sequência muda conforme o dia

Tenho um formulário "Frm_Recepcao" e nele dois campos NUM_ATEND e DATA_ATEND preciso gerar uma numeração personalisada no campo NUN_ATEND que reinicie a sequencia conforme a data. Exemplo:

001 - 19/08/2010
002 - 19/08/2010
003 - 19/08/2010
004 - 19/08/2010
005 - 19/08/2010

001 - 20/08/2010
002 - 20/08/2010
003 - 20/08/2010
004 - 20/08/2010
005 - 20/08/2010

Veja se serve ou se consegue adaptar;

http://dl.dropbox.com/u/771097/Contador%20retorna%20a%20zero%20se%20muda%20dia.rar

Consegui resolver com essa função do plinio, que reiniava acada mês, consegui adaptar para reiniciar a cada dia.

obrigado pela atenção.

Function proximoNumero() As String
'Função que busca o último número do mês
'e acrescenta um para criar o próximo

Dim strSql As String
Dim rstDoc As New ADODB.Recordset
Dim numeroEncontrado As Integer

'Cria a consulta SQL buscando os números do mês atual
'em ordem descendente para que o último fique em primeiro
strSql = "Select NUM_ATEND From PEDIDOS_VENDAS " & _
"Where (NUM_ATEND Like '%" & "-" & Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Format(Date, "yyyy") & "') " & _
"Order By NUM_ATEND Desc"

'Abre o recordset
rstDoc.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly

'Se encontrou algum pega o primeiro
'senão retorna zero
If rstDoc.RecordCount > 0 Then
numeroEncontrado = CInt(Left(rstDoc("NUM_ATEND"), 3))
Else
numeroEncontrado = 0
End If

'Próximo número = numero encontrado +1 mais o mês e ano atual com dois dígitos
proximoNumero = Format(numeroEncontrado + 1, "000") & "-" & Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Format(Date, "yyyy")

'Fecha o recordset
rstDoc.Close
Set rstDoc = Nothing

End Function

Perfeito, obrigado pelo retorno.