Code:
Private Sub Form_Load()
Me.cbodate.RowSourceType = "value list"
m1 = Format(DateAdd("d", 1, Date), "mm/dd/yyyy")
m2 = Format(DateAdd("d", 2, Date), "mm/dd/yyyy")
m3 = Format(DateAdd("d", 3, Date), "mm/dd/yyyy")
m4 = Format(DateAdd("d", 4, Date), "mm/dd/yyyy")
m5 = Format(DateAdd("d", 5, Date), "mm/dd/yyyy")
m6 = Format(DateAdd("d", 6, Date), "mm/dd/yyyy")
m7 = Format(DateAdd("d", 7, Date), "mm/dd/yyyy")
m8 = Format(DateAdd("d", 8, Date), "mm/dd/yyyy")
m9 = Format(DateAdd("d", 9, Date), "mm/dd/yyyy")
m10 = Format(DateAdd("d", 10, Date), "mm/dd/yyyy")
m11 = Format(DateAdd("d", 11, Date), "mm/dd/yyyy")
m12 = Format(DateAdd("d", 12, Date), "mm/dd/yyyy")
m13 = Format(DateAdd("d", 13, Date), "mm/dd/yyyy")
m14 = Format(DateAdd("d", 14, Date), "mm/dd/yyyy")
Me.cbodate.RowSource = m1 & ";" & m2 & ";" & m3 & ";" & m4 & ";" & m5 & ";" & m6 & ";" & m7 & ";" _
& m8 & ";" & m9 & ";" & m10 & ";" & m11 & ";" & m12 & ";" & m13 & ";" & m14
End Sub