What about this?

..ComboDay1.Value = Day(Now)

Rick


"bbussoloti" wrote in message
...
Hi,
I have 3 combo boxes that corresponds to day, month and year. When the
user
opens my form, those values should be automatically with the current day,
current month and current year, but also open to change it.
I can make the values to be changeable, but i can´t set those current date
values.
I tried with no success all of those below:

With insereForm
.Show
.ComboDay1.Value = Format(Now, "dd")
.ComboDay1.Value = Format(Date,"dd")
.ComboDay1.Value = Day
End With