I need to insert dates and day in filed for current whole month like: (VB6 code)

01-01-2012 Sun
02-01-2012 Mon
03-01-2012 Tue
.
.
31-01-2012 Tue

Thanks