I got it to take the SQL statement, but it returns with a data type mis match error? My Code is below. The Res_Date is set as a date/time in the access db.
Private Sub Command0_Click()
Dim database1 As database 'db declared as a database object.
Dim NumberOfDays As Integer
NumberOfDays = 10
Set database1 = CurrentDb 'sets the database to the current db
Dim daycounter As Integer
For daycounter = 0 To NumberOfDays
Dim LDate As Date
LDate = DateAdd("d", daycounter, #4/1/2010#) ' Enter date as month/day/Year
Dim SQLINSERT As String
SQLINSERT = "INSERT INTO TestDate (Res_Date) VALUES (#" + LDate + "#)"
Also, it's better to fully qualify the database object when you declare it, because there are two libraries in Access that provide a DataBase object: DAO and ADODB. In the present case, you need a DAO Database object (because you will assign CurrentDb to it), so your code should be:
Dim database1 As DAO.Database 'db declared as a database object