This should be basically what you are after.

Code:
Dim i As Integer
    
For i = -6 To 31
  cboDate.AddItem (Format(DateAdd("d", i, Now), "dddd, mmmm d yyyy"))
Next i
Hope it helps.

[Edited by Iain17 on 05-09-2000 at 12:55 PM]