Insert each date record for current month in Access table using VBA
<p>I am new with VBA programming. I have designed one form in which there is a button. After clicking this button I want to insert record in my table having one date column. The number of dummy record should be equals to number of days in current month. If Month is May 2016 then record will inserted with date  1/5/2016,
2/5/2016.......31/5/2016 like that.</p>

<p>Thanks in advance.</p>

<pre><code>Private Sub Command0_Click()
    Dim strQuery As String
    Dim currDateTime As Date
    currDateTime = Now()
    strQuery = "INSERT INTO tbl_ShipOrders (IDate ) VALUES (" &amp; currDateTime &amp; " )"
    CurrentDb.Execute (strQuery)
End Sub
</code></pre>