Faça assim retornara apenas os com cinco dias ou menores
Dim dDATA As String
Dim duDATA As String
dDATA = Format(Date, "mm/dd/yyyy")
duDATA = Format(DateDiff("d", -5, date), "mm/dd/yyyy")
Set tb = db.OpenRecordset("SELECT * FROM tabPedidos WHERE Data_Entrega Between '" & "#" & duDATA & "# AND #" & dDATA & "#" & "'"
VLU//
