I promise this will be the last question on this. I have got my code working as follows so thanks for all your help.
Dim wh As Date
Dim da As Date
wh = DateAdd("d", -3, Date)
Me.List39.RowSource = _
"SELECT DISTINCT Account, Name, dt, ti, amount, mon, comm FROM Customers " & _
"WHERE onstop =...