มีปัญหาเรื่องวันที่ของเดือน กุมภาพันธ์ ครับ v6

Private Sub cmdCash_Click()
Dim sqlDate As String
sqlDate = " Select * FROM TOANBUINS"
sqlDate = sqlDate & " WHERE (DayIn='" & Day(Date) & "')"
ถ้าเดือนกุมภา ดันมี 28 วัน แล้วใน DayIn มีวันที่ 29-30-31 ผมจะต้องเขียนสร้างเงื่อนไขดักมันยังไงดีครับ มือใหม่ลองอ่านแล้วเขียนเล่นครับ ขอความเมตตาด้วย

จากคุณ 9uJ (A:192.168.0.82 X:110.168.203.53)