-หาวันสุดท้ายของเดือน เข้าเก็บตัวแปร j
-หาวันเริ่มต้นของคอมโบ เข้าตัวแปร startdate

dim finishdate as date
finishdate=dateserial(year(now), month(now),j))

combo.rowsourcetype ="Valuelist"
combo.rowsource=""

do
combo.additem format(curdate,"d/mm/yy")
startdate=dateadd("d",1,startdate)
loop until curdate>finishdate

** เขียนสดครับ พอเป็นแนวทาง อาจมีบางคำสั่ง เขียนผิดเพี้ยนไปบ้าง (หรือเปล่า) ค่อยๆ แก้ค่อยๆ ปรับไปครับน่าจะพอช่วยได้

ทดลองนำไปผูกอย่างนี้

Private Sub Form_Load()
Dim finishdate As Date
finishdate = DateSerial(Year(Now), Month(Now), j)

combo.RowSourceType = "Valuelist"
combo.RowSource = ""

Do
combo.AddItem Format(curdate, "d/mm/yy")
startdate = DateAdd("d", 1, startdate)
Loop Until curdate > finishdate
Me.combo = finishdat
End Sub

ผลที่ได้เกิด Error ตรงบรรทัดนี้ครับ

combo.AddItem Format(curdate, "d/mm/yy")

อันนี้ลองทดสอบ แล้วครับไม่ติดแล้วครับ

Private Sub Form_Open(Cancel As Integer)
Dim stDate, fnDate As Date

Combo1.RowSourceType = "Value List"
Combo1.RowSource = ""

fnDate = DateAdd("d", -1, DateAdd("M", 1, DateSerial(Year(Now), Month(Now), 1)))
stDate = #6/1/2009#
Do
Combo1.AddItem Chr(34) & Format(stDate, "dd/mm/yy") & Chr(34)
stDate = DateAdd("d", 1, stDate)
Loop Until stDate > fnDate

End Sub

ทดสอบแล้ว มีรายการขึ้นให้แล้ว แต่มีรายการแถมเดือนต่อไปให้อีกประมาณ 1 เดือน

แต่ถึงอย่างไรก็ขอขอบพระคุณครับ ขอนำไปศึกษาและปรับใช้ดูนะครับ