Estou usando a seguinte consulta:

Set tbAtrasados = db.OpenRecordset("select * from tabContas where Data_Vencimento <= #" & Format(CDate(Date), "dd/MM/yyyy") & "# order by Data_Vencimento Asc")

Não esta retornando os registro que estão com as datas vencidas.

Alguém sabe de uma rotina que possa substituir essa.

 

tenho algo assim amigo

 

Function Verifica()
'VERIFICA O CAMPO DATA (DATAPAG) PRA VER SE O DIA ATUAL
'É DIA DE PAGAMENTO DE CONTA
Dim Contas As String
Rs2.Open "SELECT Empresa FROM Tbl_Contas WHERE Format(DataPag) = '" & Format(Date, "DD/MM/YY") & "'", Conn1, adOpenKeyset, adLockOptimistic
Do While Not Rs2.EOF
Contas = Contas & vbCrLf & Rs2("Empresa")
Rs2.MoveNext
Loop
If Contas <> "" Then
MsgBox "Hoje é Dia de Pagar conta da(s) Empresa(s):" & Contas, vbInformation, "Feliz dia de Pagar Conta!"
End If
End Function

Bom galera obrigado pela ajuda, + ainda não deu certo.

 

tipo tenho os campos  na tabela TabContas. (Nome, Data, Data_Vencimento)

 

Ex.: Nome:    Data:              Data_Vencimento

      João       07/03/2007      07/04/2007

Oque vc quer, é um filtro que retorne no seu formulario somente os registros que estao atrasados , desculpa nao tinah prestado atencao  o meu codigo nao vai funcionar.

A instrução do Korn, dá certinho, basta voce inverter a data para o formato americano "yyyy/mm/dd" ou "mm/dd/yyyy" e colocar o caractere jogo da velha(#), no inicio e final da data.

Rs2.Open "SELECT Empresa FROM Tbl_Contas WHERE Format(DataPag) =#'" & Format(Date, "mm/dd/yyyy") & "#'", Conn1, adOpenKeyset, adLockOptimistic

vlu//